[VB/VBA] Boucler sur les Excel ouverts

tipiou -  
byakhlefncr Messages postés 260 Statut Membre -
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 Statut Membre 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