Modifier une expression TextToDisplay

Bonjour,

je souhaiterai que la cellule contenant un lien hyper texte se renomme suivant la valeur de la variable test

Range("A20").Select

Selection.Hyperlinks(1).Address = "fichier_image\GENTIANEAD85.pdf"

Selection.Hyperlinks(1).TextToDisplay Reference:="test"

End Sub

La boucle ci-avant bug au niveau de TextToDisplay

Concernant la cible du lien: J'envisage de créer le lien manuellement sur chaque ligne de mon catalogue

Après s'il est possible de pointer sur un fichier avec le même nom que la cellule Test

Je suis preneur.

Si vous avez la solution ?

Merci d'avance

Antoine

Bonjour,

Il me semble que le texte à afficher soit secondaire ... puisqu'il faut d'abord résoudre le problème du lien hypertexte ...

Oû se trouve la valeur de ta varaiable Test ...???

Si dans ta cellule A20 se trouve le nom du fichier pdf ...

ActiveSheet.Hyperlinks.Add Anchor:=Range("A20"), Address:=Thisworkbook.path & "\" & Range("A20") & ".pdf", TextToDisplay:=Range("A20")

En espèrant que cela t'aide ...

Bonjour,

J'ai essayé: cela ne marche pas; la valeur de la cellule test se trouve dans la feuille (cellule nommée)

Merci

Antoine01 a écrit :

Bonjour,

J'ai essayé: cela ne marche pas; la valeur de la cellule test se trouve dans la feuille (cellule nommée)

Merci

Bonjour,

Il ne faut pas hésiter à joindre un fichier ...