re-PB Affichage lien Hypertexte

Salut,

Function AjouterLien(pstrLien As String)
Dim llngLig As Long
On Error Resume Next
With ActiveSheet
' recherche la première ligne vide dans la feuille active
llngLig = Application.WorksheetFunction.CountA(.Range('A:A')) + 1
.Hyperlinks.Add Anchor:=.Cells(llngLig, 1), Address:=pstrLien, TextToDisplay:=pstrLien
End With
On Error GoTo 0
End Function

IzItOuatIouOuante ?

je m'étais tromper dans l'upload
voilà mon fichier pour que vous voyez
merci

pierre-yves [file name=OUTILDERECHERCHECDC_20050727160611.zip size=10484]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/OUTILDERECHERCHECDC_20050727160611.zip[/file]

pas exactement
si tu peux regarder mon fichier
merci bcp

pierre-yves

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