Salut,en utilisant le macro recorder tu devrais parvenir après optimisation manuelle
à qqch comme
Code:
Option Explicit
Sub Tst()
Dim sChemin As String
sChemin = "C:\Transfert\" & UserForm1.TextBox1.Text
Feuil1.Hyperlinks.Add Anchor:=Feuil1.Range("G16"), Address:=sChemin, TextToDisplay:="Essai"
End Sub
Il y aurait lieu peut-être lieu de controler que sChemin n'est pas vide voire que le fichier existe via une fonction adéquate