re-PB Affichage lien Hypertexte

[Pierre-Yves]

Bonjour

J'ai une base de données qui contient des N° de dossier avec des liens hypertexte.
J'ai mis des onglets déroulants pour faire une recherche sur cette base de données et le résultat s'affiche à l'aide de la fonction INDEX.
Ma recherche fonctionne, elle donne les résultats par contre, elle n'affiche pas le lien hypertexte correspondant.
J'arrive donc à importer le résultat, la valeur mais pas le lien hypertexte qui se trouve pourtant dans la même cellule.
Je n'utilise aucunes macros, j'aimerai savoir si qqn a une solution???
Celle de Jean-Marie est très proche, je n'arrive pas à la dupliquer
Merci

Voiçi içi mon fichier


Pierre-Yves

 

[Tenormadness]

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 ?

 

[pierre-yves]

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]

 

[pierre-yves]

pas exactement
si tu peux regarder mon fichier
merci bcp

pierre-yves

 

[bbmarcus]

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