Lancer un hypertexte depuis une textbox

Bonjour à tous

J'ai un USF avec plusieurs textbox avec chacune des informations via moteur de recherche.

Dans l'une d'entre elle il y a un lien hypertexte .

J'aimerai pouvoir un dbl clinquant dans cette TXB lancer ce lien et ouvrir donc le .pdf correspondant

Voila le code que je mets mais cela ne veux rien savoir

Private Sub textBoxcaces_dblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim T As String

T = Me.TextBoxcaces

Selection.Hyperlinks(T).Follow NewWindow:=False, AddHistory:=True

End

Unload Me

End Sub

C'est le premier code que j'aissaie de faire tout seul donc je pense que tout doit etre faux

UN grand merci pour votre aide

Bonjour yoyo

envoie le fichier qu'on regarde

Cordialement

Voici le fichier

Bonjour

Où est ce fameux code et le lien dont tu parles?

Cordialement

Desolé j'ai oublié dans ce fichier de le mettre

Malgré tout j'ai trouvé mon erreur je te joint le fichier ou le code corrige s'y trouve

mille merci

Salut

à tester en adaptant le lien qui est recréé

Private Sub textBoxcaces_dblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Range("B27").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
             "..\..\..\..\2%20Chariot\Chariot%20still\R70\Ref%20moteur%20ADF.pdf", TextToDisplay:=Selection.Value
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Unload Me
End Sub
Rechercher des sujets similaires à "lancer hypertexte textbox"