Pb création lien Hypertexte

[Antoine]

Bonjour le forum,

Bien que ce sujet a été traité un certain nombre de fois, je ne m'en sort pas.

je veux que ma proc me crée un lien hypertexte en AN8 avec le nom du fichier (chemin complet) qui est en range('A120'), le nom de la feuilen range('A1'), pointant la cellule A1.

Voici ce que cela donne:

fap = Range('A120').Value & '.xls'' & Range('A1').Value & ''!A1'
Range('AN8') = '' ' -)--init du lien hypertexte pour le Planning
ActiveCell.FormulaR1C1 = '' '----------------------------------==)
Range('AN8').Select ' )
' création du lien hypertexte Contrat
ActiveSheet.Hyperlinks.Add Anchor:=Range('AN8'), Address:=fap, TextToDisplay:='P'
' ---------------------------------==)
elle me crée bien un lien, mais une erreur apparait me disant Impossible d'ouvrir le fichier spécifier.

Y a t'il une erreur ds la syntaxt ? je seche.

Bonne Journée

Antoine

 

[Bernard_XLD]

Bonjour Antoine, le forum

Tu fais une erreur de syntaxe sur la création du lien
ou tu associes address et subaddress, on devrait plutôt écrire:

ActiveSheet.Hyperlinks.Add Anchor:=Range('AN8'), Address:= Range('A120').Value & '.xls' , SubAddress:=Range('A1').Value & '!A1', TextToDisplay:='P'

Cordialement, A+

 

[Antoine]

Bonsoir Yaehou

Merci pour ta réponse et bon fin de Dimanche

Antoine