Bonjour pierre-yves, Tenormadness, le forum,
j'ai eu le même soucy pour un lien vers des docs Word, et j'ai utilisé ce code dans un boutton:
Private Sub CommandButton1_Click()
ActiveSheet.Hyperlinks.Add Anchor:=Range('H10'), _
Address:=Range('H11').Value & '', _
SubAddress:=Range('A1').Value & '', _
TextToDisplay:=''
H10= le nom à donner au lien (qui doit correspondre au vrai nom...
H11=l'adresse du lien...
Il me semble qu'au premier lancement, à la place des '', il faut mettre '.xls' (si c'est u nfichier excel) et qu'après, tu peux le suprimer du code......par contre, ne jamais effacer le contenu de la cellule qui recois le lien, sinon pfffittttttt
Si ca peut t'aider,
bbmarcus
Message édité par: bbmarcus, à: 27/07/2005 17:12