Nom onglets

[J.-P.]

Bonjour,
Je cherche comment copier tous les noms des onglets pour les collé
Dans une feuille excel.

Merci de votre aide.

J.-P.

 

[MJ13]

Re : Nom onglets

Bonjour J.P.

A tester:

Sub Liste_Feuilles()
'F1 sur worksheet ou worksheets
Dim ws As Worksheet
    Range("B" & Range("B65536").End(xlUp).Rows.Row + 1).Select
    For Each ws In Worksheets
    'MsgBox ws.Name
    Cells(ActiveCell.Row, 2) = ws.Name: ActiveCell.Offset(1, 0).Select
    Next ws
End Sub

 

[STephane]

Re : Nom onglets

bonjour

la collection Worksheets correspond aux onglets type "feuille de calcul".
pour lister tous les onglets, il faut utiliser la collection Sheets.


Sub liste()
Dim ws
Range("B" & Range("B65536").End(xlUp).Rows.Row + 1).Select
For Each ws In Sheets
x = x + 1
'MsgBox ws.Name
Cells(ActiveCell.Row, 2) = ws.Name: ActiveCell.Offset(1, 0).Select
'Cells(ActiveCell.Row, 3) = TypeName(ws)
Next ws
End Sub

HTH

 

[BOISGONTIER]

Re : Nom onglets

Bonjour,

Voir PJ

JB