Transférer nom Fichiers ouverts dans VBA

Marc · 22 Avril 2005

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é · 22 Avril 2005

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 · 22 Avril 2005

Bonjour Hervé

Merci, c'est exactement ce que je cherche

A+

Transférer nom Fichiers ouverts dans VBA

Marc

Guest

Hervé

XLDnaute Barbatruc

Marc

Guest

Discussions similaires

Transférer nom Fichiers ouverts dans VBA

Marc

Guest

Hervé

XLDnaute Barbatruc

Marc

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency