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
Configuration: Windows 2000 Internet Explorer 6.0

1 réponse

pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 770
 
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