Transférer nom Fichiers ouverts dans VBA

[Marc]

Bonjour,

J'ouvre plusieurs fichiers pour les besoins d'une application. Dans un module VBA, je voudrais capter dans une variable (A1,A2,...) le nom de ces fichiers.
Je ne trouve pas la syntaxe.
Merci de votre aide

 

[Hervé]

Bonjour

Une solution par tabeau :

Public Sub vev()
Dim tablo As Variant
Dim wb As Workbook
Dim i As Byte

ReDim tablo(1 To Workbooks.Count)

For Each wb In Workbooks
tablo(i + 1) = wb.Name
i = i + 1
Next wb

For i = 1 To UBound(tablo)
MsgBox tablo(i)
Next i

End Sub

Salut

 

[Marc]

Bonjour Hervé

Merci, c'est exactement ce que je cherche

A+