Transformer une saisie TextBox en lien hypertexte

Bonjour,

J'ai fait un formulaire VBA qui remplit un tableau quand on appuie sur le bouton enregistrer. Tout cela fonctionne bien. Mais, dans la TextBox5, je saisis le chemin d'accès vers un fichier du pc, et j'aimerais que lorsque ce texte est transféré vers le tableau excel, il donne un lien hypertexte.

Est-ce possible ?

Merci beaucoup pour votre aide.

Bonjour,

à tester,

lien = Me.TexBox1
With Sheets("MaFeuill")
  .Hyperlinks.Add Anchor:=.Cells(2, 2), Address:=lien, TextToDisplay:=lien
End With

Désolée mais je suis une totale débutante. Où dois-je mettre ce texte ?

re,

Voici le fichier en question.

Merci

Re,

à tester,

Private Sub CommandButton1_Click()
Dim L As Integer
L = Sheets("BDD articles").Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE

Range("A" & L).Value = TextBox1 'Insère la donnée de la liste déroulante dans la colonne A
Range("B" & L).Value = TextBox2 'Insère la donnée de la textbox1 dans la colonne B
'et à suivre....
Range("C" & L).Value = TextBox3
Range("D" & L).Value = TextBox4
Range("F" & L).Value = TextBox6

lien = Me.TextBox5
With Sheets("BDD articles")
  .Hyperlinks.Add Anchor:=.Cells(L, "E"), Address:=lien, TextToDisplay:=lien
End With

Unload Me ' Vide et ferme l'Userform ( formulaire)
End Sub

Super, ça marche, merci beaucoup !