Nom onglets

J.-P. · 10 Août 2010

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

Merci de votre aide.

J.-P.

MJ13 · 10 Août 2010

Re : Nom onglets

Bonjour J.P.

A tester:

Code:

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 · 10 Août 2010

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 · 10 Août 2010

Re : Nom onglets

Bonjour,

Voir PJ

JB

Nom onglets

J.-P.

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

STephane

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Nom onglets

J.-P.

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

STephane

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency