Hyperlinks

Bonjour a tous,

Ci joint les 2 petits fichiers qui me posent un problème
Quand je cliques sur " plan " il ne me cherche pas le liens hypertext que j'ai mis dans le fichiers données.

PS pour que cela fonctionne chez vous il fo changer l adresse du repertoire


Merci de votre aide

Bonjour,

Si tu ne changes rien d'autre à ta procédure, c'est à dire si le classeur "Données" reste actif après la recherche, change juste la partie suivante de ton code

Code:

---

1 2 3 4

Private Sub CommandButton9_Click() Selection.Offset(0, 1).Hyperlinks(1).Follow End Sub

---

@+

Juste pour que tu comprennes le principe...
Tu as une feuille qui contient ton lien.
Dans l'userform, tu dois utiliser ce lien
Pour l'utiliser il te suffit d'en connaître l'adresse
Ce que je ferais serait de placer ces liens dans un combo afin de pouvoir les sélectionner.
Avec ton userform tel qu'il est, voici un code qui fonctionne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim CL1 As Workbook Dim FL1 As Worksheet Dim c As Range Private Sub CommandButton2_Click() Set CL1 = Workbooks.Open(Filename:="D:\xls\Données.xls") Set FL1 = CL1.Worksheets("feuil1") With FL1.Cells Set c = .Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not c Is Nothing Then TextBox17.Text = c.Offset(0, 1).Address End With End Sub   Private Sub CommandButton9_Click() FL1.Range(Me.TextBox17.Text).Hyperlinks(1).Follow NewWindow:=True End Sub

---

A placer dans la feuille de code de l'userform
Avec ce code, je place l'adresse de la cellule contenant le lien dans le classeur données, dans le textbox17
CommandButton9 utilise cette adresse pour ouvrir l'URL

merci a tous