Liste des classeurs ouverts

Comment faire par VBA pour lister tous les classeurs ouverts ?

sub listeWB()
   Dim wb As Workbook
   Dim txt As String
   For Each wb In Workbooks
   txt = txt & wb.Name & vbCrLf
   Next wb
   MsgBox txt
 end sub

Auteur :

Mots clefs associés à cette page : , , , ,