Extraction liste des noms de feuilles Excel

[ChuBaKa]

Bonjour,

Quelqu'un saurait-il comment extraire dans un fichier excel comportant N feuilles la liste de ces noms de feuilles via une macro VBA => en bref, extraire dans une colonne la liste des noms de feuilles du fichier ?

Par avance, merci.

 

[Gérard Dezamis]

Bonjour Chubaka

Sub ListFeuil()
'ChrisV, mpfe
Application.ScreenUpdating = False
Set nSht = Sheets.Add(Before:=Sheets(1))
On Error GoTo GesErr
DebProc:
nSht.Name = "Sommaire"
[A1] = "Liste des onglets du classeur"
With Selection.Font
.Bold = True
.Size = 12
End With
For i = 2 To Sheets.Count
nSht.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(nSht.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
Address:="", SubAddress:=Sheets(i).Name & "!A1", _
TextToDisplay:="Lien vers " & Sheets(i).Name
End With
Next i
With Rows("1:1")
.RowHeight = 40
.VerticalAlignment = xlCenter
End With
[E2].Activate
ActiveWindow.DisplayGridlines = False
Exit Sub
GesErr:
Application.DisplayAlerts = False
Sheets("Sommaire").Delete
Application.DisplayAlerts = True
GoTo DebProc
End Sub

Cette Macro de Chris V. permet de faire un sommaire avec liens hyper -texte
Cela devrait te convenir

@+
GD

 

[ChristianS]

Salut,
Deux petits modèles qui pourraient t'aider.
A +
ChS

 

[ChuBaKa]

Bonjour Gerard,

Merci pour ton aide précieuse.

A+

 

[ChuBaKa]

Salut christianS,

Merci pour ton aide et ces exemples.

A+