Liste des feuilles d'un classeur

Bonjour Stéphan

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

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

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

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

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