Discussion :

[wabo67]

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wabo67]

merci a tous