Lien hypertexte userform

coudu -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention - 22 déc. 2009 à 11:43

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

Afficher la suite

1 réponse

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

Lien hypertexte userform

1 réponse

Discussions similaires

Newsletters