[VB/VBA] Boucler sur les Excel ouverts

tipiou -  
byakhlefncr Messages postés 260 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
byakhlefncr Messages postés 260 Date d'inscription   Statut Membre Dernière intervention   63
 
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