[VB6] Savoir depuis VB, si un document Excel est ouvert

Rebonjour à tous,
J'aimerai savoir avec VB si un document Excel est ouvert... . Existe il une commande qui donne cette information ??

Merci d'avance
@@++

si le document est ouvert à partir de ton program, et qu'il n'est plus refermé qu'à partir du meme programe, là tu peux faire des tests,

mais si tu parles de façon générale, là j'avoue que moi je serais preneur car ca me faciliterai la tache :?

Non c est justement, je cherche jsutement àà savoir si Excel est un cours t'utilisation, masi qu'il aie été lancer depuis autre chose que mon programme VB, jsute savoir si il est ouvert en trian de tourner.

bonjour,

voici comment j'ai fait ça. Je lance une macro depuis Business Object qui crée des fichiers Excel.
Etant donné que je débute avec VBA , je ne sais pas si c'est super

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim xlApp As Excel.Application   ' Si excel n'est pas ouvert, on l'ouvre, sinon, on récupère l'appli ouverte On Error Resume Next Set xlApp = GetObject(, "Excel.Application")   If Err.Number <> 0 Then Err.Clear Set xlApp = CreateObject("Excel.Application")   End If   Set xlApp = Nothing

---

ben merci, je vais voir ce que je peux faire avec sa et je te redit,...

@@++

Alros ton code m'est bien utile (am) en fait dans mon prgramme, je veux juste savoir si un certain document est déja ouvert, mais comme (je débute aussi en vb), je connaissais pas l'instructions Getobject.

voila +/- comment je vais utliser ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command1_Click() Dim xlApp As Excel.Application ' Si excel n'est pas ouvert, on l'ouvre, sinon, on récupère l'appli ouverte Set xlApp = GetObject(, "Excel.Application") For cpt = 1 To xlApp.Workbooks.Count List1.AddItem xlApp.Workbooks(cpt).Name Next cpt Set xlApp = Nothing End Sub

---

Merci encore et @@++