création lien hypertexte en VBA

[erics83]

Bonjour,

Malgré de nombreuses recherches, je n'ai pas trouvé......ce que je cherche.... : j'ai vu que l'on pouvait faire des liens hypertextes, mais à chaque fois on connait la cible ...alors que moi, je ne la connais pas à l'avance.......

Ce que je cherche à avoir : j'ai un CommandButton1, lorsque je clique dessus, cela ouvre l'explorateur Windows (là, je crois avoir compris que c'est avec

Application.GetOpenFilename

) je sélectionne le fichier et enregistre le lien dans dans un Textbox1. CommandButton1 change de couleur (pour me signaler qu'un lien est enregistré), et si je clique sur CommandButton1, le lien se déclenche et ouvre mon fichier recherché.....

Merci pour votre aide,

 

[erics83]

Re,

J'ai bien réussi à identifier le nom du fichier, mais je n'arrive pas a le déclencher.....j'ai fait :

Private Sub Commandbutton1_click()

If TextBox1.Value = "" Then
fichier = Application.GetOpenFilename
TextBox1.Value = fichier
CommandButton1.BackColor = &H80FF80
Else
TextBox1.Hyperlinks(1).Follow NewWindow:=False 'marche pas....
Workbooks.Open TextBox1.Value, local:=True 'Marche pas non plus...
End If

End Sub

Merci pour votre aide,

 

[erics83]

Bonjour Pierre,

Merci,