nom de fichier

[Esox]

Bonjour le forum,
Y aurait il moyen de mettre dans des cellules le nom de tous les fichiers Excel ouvert ?
merci à vous,
Stef.

 

[Pierrot93]

Re : nom de fichier

Bonjour,

essaye peut être le code ci-dessous, est valorisé dans la feuille active du classeur actif :

Option Explicit
Sub test()
Dim wb As Workbook, i As Byte
For Each wb In Workbooks
    i = i + 1
    Cells(i, 1).Value = wb.Name
Next wb
End Sub

bon après midi
@+

 

[Esox]

Re : nom de fichier

Re
Je te remercie, ca devrait le faire...
Heureusement que vous etes là sans déconner...
Stef.