L
losanz
Guest
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.
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.