Discussion :

[Argonz]

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

Merci d'avance
@@++

[elifqaoui]

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

[Argonz]

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.

[am]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Argonz]

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

@@++

[Argonz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 @@++