porbleme avec vb6.0 et excel

bonjour voila mon probleme je chercher un code permettant de tester si mon classeur excel et ouvert, si oui il affiche un message box sinon il ouvre mon ficher. Il faut juste me trouver ce que je doit mettre a la place de mes ????????



If ????????????????????????Then
    MsgBox "deja ouvert"
Else
 
  'Créer un nouveau classeur EXCEL initialisé à la ligne 1
   Appli.Workbooks.Open "\\Kwartz-serv-ig\Commun\tsig2da\HerbinDelphine\Facture.xls" 
   
End If

merci

ps je traail en vb6.0 avec excel 2000-2003

Salut,
Il me semble que ce sujet (ou un très similaire) à été traiter la semaine derniere dans le forum fouille un peu.
(je vais fouiller de mon coté aussi)

@+: Ju£i€n
Pensez: Réponse acceptée

 Bonjour à tous,


Bonjour Julien,

on peux aussi gérer l'erreur 70 (fichier ouvert ....)


Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim NomFichier, fso, f
NomFichier = "d:\nouv_barre.xls"
Set fso = CreateObject("Scripting.FileSystemObject")

On Error Resume Next   
Set f = fso.OpenTextFile(NomFichier, ForAppending, TristateFalse)

If Err.Number <> 0 Then
   Msgbox "Le fichier est déjà ouvert" &vbCrLf& _
           Err.Number &vbCrLf& Err.Source &vbCrLf& Err.Description : Err.Clear
   Else
   MsgBox "Le fichier n'est pas ouvert"
End If

jean-marc

Ju, avec VB6  ;)

Utilise l'API   _lopen
Exemple ICI :
http://www.codyx.org/snippet_ouvrir-fichier-word-ou-excel-est-ouvert-copie_313.aspx

@++

---

Re,


Bonjour Mortalino,
Joli ton snippet en vb6/vba .... qui gèrent les erreurs.

A+.
jean-marc

Salut Jean-Marc,
Merci  ;)

J'avoue quand même qu'on m'a aidé pour Office 2000, ne l'ayant pas, je ne pouvais testé à ce niveau

@++

---

ok merci tout le monde

Tu dis que tu travailles en VB6 avec Excel...

J'aimerais avoir une précision
Est-ce que tu travailles sous VB6 (le vrai) et tu ouvres des documents Excel en utilisant des objets Excel, tel que
Dim xlApp as New Excel.Application  (ou CreateObject ...)

Si c'est le cas, tu peux ouvrir plusieurs fois le même document et aucune erreur n'apparaîtra sauf si tu cherches à le sauvegarder après modification, je pense. Chaque document s'ouvrira dans une nouvelle instance d'Excel.

Il faut donc que tu sois précis sur la façon dont tu procèdes et avec quoi tu programmes.
Si c'est dans Excel et que tu vas dans son IDE, alors c'est VBA et c'est bien différent...

MPi

Alors on en est où ici???
Problème résolu ou pas?

@+: Ju£i€n
SI OUI Pensez: Réponse acceptée