[VB/VBA] Boucler sur les Excel ouverts

Fermé
tipiou - 20 juil. 2005 à 12:36
byakhlefncr Messages postés 260 Date d'inscription vendredi 1 juillet 2005 Statut Membre Dernière intervention 11 septembre 2008 - 20 juil. 2005 à 16:00
Bonjour,

Je souhaite faire la liste de tous les fichiers ouverts dans Excel.
Je peux avoir plusieurs applis Excel ouvertes.
Le code :

Set EExcel = GetObject(,"Excel.Application")
Forall fen In EExcel.Windows
print fen.Caption
End Forall

récupère uniquement le premier Excel ouvert.
Comment puis je boucler sur les autres, svp ?

merci.
A voir également:

1 réponse

byakhlefncr Messages postés 260 Date d'inscription vendredi 1 juillet 2005 Statut Membre Dernière intervention 11 septembre 2008 63
20 juil. 2005 à 16:00
Salut,

Je n'ai pas VB Installé sur mon PC mais j'ai utilisé VBA en Excel et ce code marche bien.


Set EExcel = GetObject(,"Excel.Application")
For iCpt = 1 To EExcel.Windows.Count
MsgBox EExcel.Windows(iCpt).Caption
Next iCpt



Bonne chance
0