[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.

1 réponse

  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

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses