afficher classeurs ouvert dans des celulles

ben · 1 Décembre 2003

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 · 1 Décembre 2003

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 · 2 Décembre 2003

merci yohan c'est sympa

afficher classeurs ouvert dans des celulles

ben

Guest

Johan

Guest

ben

Guest

Discussions similaires