afficher classeurs ouvert dans des celulles

[ben]

Bonjour le forum,
je cherche un code permettant d'afficher par exemple dans la celulle A1 ainsi de suite le nom des classeurs ouvert actif.

merci pour votre aide !

 

[Johan]

Bonjour Ben et le Forum,


Private Sub CommandButton1_Click()

Dim Cl As Workbook
Dim i As Integer

i = 0

For Each Cl In Workbooks
Range("a1").Offset(i, 0).Value = Cl.Name
i = i + 1
Next
End Sub

Bonne journée

 

[ben]

merci yohan c'est sympa