Macro avec pour afficher feuille via lien hypertexte

[losanz]

A toutes, tous ,hello


Help une nouvelle fois,

Voilà, j'ai un classeur avec énormément de feuille similaire, je voudrais récapituler toutes les données sur une feuille bilan:
J'ai sorti ça qui fonctionne:
-
-
Sheets("Bilan").Select
NBFeuille = Sheets.Count
For i = 1 To NBFeuille
NomFeuille = Sheets(i).Name
Sheets("Bilan").Select
Cells(4 + i, 2) = NomFeuille
-
-
Seulement en voulant améliorer la macro ça s'est gaté:
je n'arrive pas à reprendre le nom de la feuille pour la mettre en lien hypertexte, errer certaine de syntaxe...
-
-
ActiveCell.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'"NomFeuille"'!A1", TextToDisplay:="NomFeuille"

Next
-
-
Merci à vous encore d'avance.

 

[michel]

bonsoir Losanz

la macro ci dessous liste le nom des feuilles ainsi qu'un lien hypertexte dans l'onglet "bilan"

Sub CreerLiensFeuilles()
Dim I As Byte, J As Byte
Dim Val As String

For I = 1 To Sheets.Count
If Not Sheets(I).Name = "Bilan" Then
Val = "'" & Sheets(I).Name & "'!A1"
J = J + 1
Worksheets(I).Hyperlinks.Add Anchor:=Sheets("Bilan").Cells(J, 1), Address:="", SubAddress:=Val
End If
Next I

End Sub


bonne soiree
michel