Pouvoir cliquer sur lien hypertexte à partir d'un formulaire d'information

Bonjour,

Je peaufine mon programme et je souhaite lors de l'appel d'un formulaire d'information sur un client, la case contenant l'information s'affiche en lien hypertexte et permet le renvoi vers le site. Dans mon tableau tout fonctionne, mais pas en consultation via un formulaire.

La valeur a afficher en hypertext est txtFiche

Merci de votre aide.

With Worksheets("RdV").ListObjects("TRDV").DataBodyRange

txtHRdV = Format(.Item(Lig, 4).Value, "HH:MM")

txtLieu = .Item(Lig, 5).Value

txtMode = .Item(Lig, 6).Value

txtMontant = Format(.Item(Lig, 8).Value, "Currency")

txtCR = .Item(Lig, 15).Value

txtFiche = .Item(Lig, 16).Value

txtStatut = .Item(Lig, 17).Value

txtResume = .Item(Lig, 18).Valuend With

Private Sub txtFiche_DblClick(byVal cancel as MSForms.ReturnBoolean)
Dim Link as String 
Link = "http://forum.excel-pratique.com/excel/"
If Me.txtFiche <>"" Then
    ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
    Unload Me
End if
End Sub

Je n'ai pas réussi à faire fonctionner votre code.

Je vous joint un fichier allégé si vous trouvez une solution à mon problème. Merci

A tout dire, malgré le téléchargement de ton fichier, je n'y comprends rien.

Tu voudrais cliquer dans une cellule et ouvrir un site ?

Tu voudrais cliquer sur un TextBox et ouvrir un site ?

tu voudrais cliquer sur un label et ouvrir un site ?

Dans le fichier sur la page d'accueil, il reste un cadre de saisie (loupe) cela donne accés à un récapitulatif d'information :

en bleu sur la patiente (j'ai laissé un nom)

qui donne en vert l'enfant (j'ai laissé un nom)

qui donne en jaune la liste des rdv (j'ai laissé une date)

Je souhaite dans la textbox Fiche pouvoir cliquer et ouvrir cette fiche qui se trouve sur un drive.

Je pense avoir été clair.

Merci à vous

S'il faut s'en tenir au lien hypertexte, je ne pense pas que cela soit possible.

La propriété "Anchor" attend soit une range ou un shape.

Essaie plutot avec des ChrDir ...

Ou ceci que tu peux adapter avec ton drive .

Sub FollowHyperlinkFolder()

    'Launch the hyperlink to a folder
    ActiveWorkbook.FollowHyperlink Address:="/Users"

End Sub

Merci beaucoup

Je pensais bien que cela n'était pas possible lors d'une consultation de cellule, elle perd son format. Je vais m'orienter vers des chrdir comme vous le suggéré.

Merci encore