Affecter lien hypertexte à un objet

Bonjour à tous, voici la partie du code qui me pose problème.

Je cherche à affecter par macro un lien hypertexte qui ce trouve être la valeur d'une cellule("N1") à un objet("fiche").

J'ai essayé ce code mais sans succes. pouvez vous m'aider ?

ActiveSheet.Shapes("fiche").Select

Selection.ShapeRange.Hyperlinks.Add Anchor = Range("N1").Value

Bonsoir

A tester

Sub test()
    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("fiche"), Address:= _
        Range("N1").Value
End Sub

Merci c'est parfais.

64 power !!

Re- Même question mais cette fois ci Je cherche à affecter par macro un lien vers unefeuille intitulé "LMV" qui ce trouve être la valeur d'une cellule("N9") à un objet("retour").

pouvez vous m'aider ?

Bonjour

Je veux bien essayer (sans garantie)

Mais je ne comprends pas trop

Quelle est la différence avec l'autre macro ?

Joins un fichier

le premier code etait destine a integrer un lien externe type c:/document/

alors que le deuxieme est un lien vers une feuille du meme fichier dont le nom est repris dans une cellule

dois je changer adress par sheets ?

Bonjour

Obtenue avec l'enregistreur puis modifiée

Sub test2()
    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Retour"), Address:= _
        "", SubAddress:=Range("N9").Value 
End Sub

Dans la cellule N9

LMV!A1

ok, je teste...

quand j'enregistre une macro, rien n'apparait au sujet des objet, comment arrive tu à avoir ces codes toi ?

Bonsoir

Voilà un code obtenu avec l'enregistreur

Ensuite j'adapte pour obtenir le code que je t'ai envoyé

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/05/2012 par Moi
'

'
    ActiveSheet.Shapes("Retour").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "", SubAddress:="Feuil2!A1"
End Sub

pour le code c'est ok

pour l'enregistreur je n'avais rien car je fesais directement un clic droit sur mon objet avant de changer le lien

et cela à pour effet de ne pas l'afficher dans l'enregistreur de macro.

par contre lorsque l'on selectionne d'abord l'objet avec un clic gauche et que ensuite on change le lien avec un clic droit, là ça fonctionne.

CQFD, merci encore.