macro pour lister les feuilles sous forme hypertexte

[GOJI]

Bonjour,
J'ai excel 97 et toutes les macros proposées pour créer automatiquement la liste des feuilles d'un fichier excel comme:

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

ne fonctionne pas chez moi.
Merci de votre aide

 

[EricD01]

Re : macro pour lister les feuilles sous forme hypertexte

Salut à toi...

Je viens de faire ça dis moi si c'est ce que tu voulais...

Dans l'attente, @ plus...

 

[GOJI]

Re : macro pour lister les feuilles sous forme hypertexte

merci pour ta réponse rapide.

Malheureusement ça ne fonctionne pas. Ca m'affiche:

"Erreur de compilation
argument nommé introuvable"

avec ceci en surbrillance:

"TextToDisplay:="