Liste des feuilles d'un classeur

[Stéphan]

Je cherche à lister l'ensemble des feuilles d'un classeur dans une des feuilles de ce classeur.
Le must serait que cette liste s'actualise automatiquement si on ajoute une nouvelle feuille.

Stéphan

 

[Didier]

Bonjour Stéphan

je pense que ce ficier ira très bien ,il me vient de Celeda
A+Didier

 

[Stéphan]

Merci Didier pour ta réponse. Je n'arrive pas à le télécharger, pourrais-tu me l'envoyer à stephan.kieffer@aasport.com si ce n'est pas trop abuser, re-merci.

Stéphan

 

[Daniel DEMILLY]

Bonsoir,

'Insère une feuille nommée Liste des feuilles et crée le sommaire du classeur.

Sub ListeFeuilles()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ArrFeuil = Sheets("Liste des feuilles")
ArrFeuil.Cells(1, 1).Value = "Tableau des feuilles"
For I = 2 To ActiveWorkbook.Sheets.Count
ArrFeuil.Cells(I, 1).Value = Sheets(I).Name
Next I
Application.DisplayAlerts = True
Alerte = True
Application.ScreenUpdating = True
End Sub


'Insère une feuille et liste les feuilles sour forme de liens hypertextes.

Sub LstSheetHyperlink()
Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet)
For I = 1 To Sheets.Count
newfeuille.Cells(I, 1).Value = Sheets(I).Name
With Worksheets(newfeuille.Name)
'ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _
'Chr(39) & Sheets(i).Name & Chr(39) & "!A1" End With
Next I
End Sub

A+
D@niel

 

[Didier]

Re salut Sthephan

Je ne suis pas sur de mon Outlook , je l'ai envoyé il y a
15 mn j'espère que tu l'a reçu.
Didier

 

[Celeda]

Bonsoir,

Il existait un autre fichier de Thierry, le MenuFeuilles, que j'aime beaucoup aussi. Je le joins. Et vous pouvez aller le chercher en utilisant le fichier de Ti qui se trouve dans le lien de DavidXLD.

Celeda