Problème fonction lien_hypertexte

Bonjour le forum,

J'aimerais qu'en inscrivant l'emplacement d'un fichier dans un textbox, celui-ci se transforme en lien hypertexte dans une cellule. Pour l'instant j'ai écris ceci comme code :

Dim lienhyper as String
lienhyper= Textbox1.value
Sheets("feuil1").range("C2").FormulaR1C1 = "=HYPERLINK(lienhyper)"

Le problème c'est qu'avec "=HYPERLINK(lienhyper)" lienhyper est juste du texte et pas la variable que j'ai déclaré avant. Avez vous une solution?

J'espère avoir été compréhensible et merci d'avance pour vos réponses.

Salut

Deux essais : (j'ai modifié l'initialisation de la variable lienhyper pour le test)

1 er avec ton code :

Sub macro1()
Dim lienhyper As String
lienhyper = "http:\\toto.com"
'lienhyper= Textbox1.value
Sheets("feuil1").Range("C2").FormulaR1C1 = "=HYPERLINK(" & lienhyper & ")"
End Sub

2eme avec mon code

Sub Macro2()
Dim lienhyper As String
lienhyper = "http:\\toto.com"
'lienhyper= Textbox1.value
Sheets("Feuil1").Hyperlinks.Add Anchor:=Range("C2"), Address:=lienhyper, TextToDisplay:=lienhyper
End Sub

Dis moi si cela répond a ta question.

Damien

J'ai essayé le deuxième et ça fontionne très bien merci !!!!