Lien hypertexte userform

coudu -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,
Dans un userform, je récupère dans un texbox un lien hypertexte présent dans une cellule Excel.
Problème, quand je lance le Userform les valeurs sont bien retranscrites mais le lien n’est pas actif, il y à t’il une solution ?

merci

1 réponse

pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Bonjour,
J'ai essayé ceci, ça à l'air de bien vouloir fonctionner :

1- Au lancement du UserForm, récupérer le lien situé en B5 dans le TextBox1 :
Private Sub UserForm_Activate()
TextBox1 = [B5]
End Sub


2- évènement : double clic dans TextBox1, ouvre le lien :
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
lien = [B5]
ActiveWorkbook.FollowHyperlink Address:=lien
End Sub
0