VBA : Créer un lien hypertexte

[Troudz]

Bonjour,

Lors de l'ouverture de mon classeur, je voudrais créer un lien hypertexte d'une cellule vers un fichier. Mes fichiers étant amenés à être déplacés, je veux que cela se fasse de façon dynamique.

J'ai donc rédigé le code suivant :

Sub Workbook_Open
    ThisWorkbook.Sheets("Menu").Cells(40, 6).Hyperlinks.Address ThisWorkbook.Path & "\Modèles\Compte rendu réunion.dot"
End Sub

Malheureusement à chaque fois ça me renvoi une erreur "Propriété ou méthode non gérée par cet objet".

Auriez vous une idée sur la façon de procéder ???

Je vous remercie par avance.

 

[Dranreb]

Re : VBA : Créer un lien hypertexte

Bonsoir.
Essayez:

ThisWorkbook.Sheets("Menu").Cells(40, 6).Hyperlinks(1).Address = ThisWorkbook.Path & "\Modèles\Compte rendu réunion.dot"

À tester, je me suis borné à étudier l'aide. On y trouve que la propriété Hyperlinks est une collection d'objets Hyperlink et n'a en effet pas de méthode Address. En revanche son premier (voire seul) membre devrait l'avoir comme propriété en lecture/écriture.

Cordialement.