lien hypertexte

[Pierre]

Bonjour le Forum.
J'ai créé une macro qui m'ajoute une feulle et me créé un lien hypertexte vers celle-ci ; or le lien ne fonctionne pas et je ne comprend pas pourquoi. Quelqu'un viendra-t-il à mon secours ? D'avance merci. Voici le code :
Sub CREERFEUILLE()
'
' CREERFEUILLE Macro
' Macro enregistrée le 10/12/2005 par PTFX
'

maFeuil = InputBox(Prompt:='Taper le nom de la feuille à créer. EX : DURAND Albert ')
Sheets('MODELE').Select
Sheets('MODELE').Copy Before:=Sheets(3)
Sheets('MODELE (2)').Select
Sheets('MODELE (2)').Name = maFeuil
Range('i1').Select
ActiveCell.Value = maFeuil
Sheets('LISTE').Select
[A65536].Select
Selection.End(xlUp)(2).Select
ActiveCell.Value = maFeuil
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='', SubAddress:= _
maFeuil, TextToDisplay:=maFeuil
Range('A1').Select
End Sub

 

[Charly2]

Bonsoir Pierre, bonsoir à toutes et à tous

J'ai failli mourir car une idée m'a traversé l'esprit !!!

As-tu essayé de mettre :

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:='', SubAddress:= _
''' & maFeuil & ''!A1', TextToDisplay:=maFeuil

Tiens nous au courant

Amicalement
Charly

 

[Pierre]

Bonjour le forum, Charly.
Effectivement, ça marche. J'ai compris mon erreur. Merci beaucoup.
Amicalement.