Créer un lien hypertexte sur un formulaire

Page mise à jour le : 10/04/2008

 
      Comment réaliser l'exemple présenté ?

1 - Créer un formulaire
2 - Créer un label qui servira de lien vers le mailto
3 - Pour la propriété Name de ce label, donnez le nom lblMail
4 - Créer un label qui servira de lien vers l'URL
5 - Pour la propriété Name de ce label, donnez le nom lblURL
6 - Pour simuler que c'est un lien et pour chaque label, choisisez une couleur bleu et souligné le texte
       - Couleur : mettre la propriété ForeColor à Bleu
       - Souligné : Sélectionnez la Propriété Font, déroulez et pour Effets, cochez Souligné
7 - Pour que le lien soit actif, il ,faut lui associer du code sur l'évenement Click ce qui donnera ...
       Private Sub lblMail_Click() pour le label lblMail
       Private Sub lblURL_Click() pour le label lblURL

Ecrire le code VBA pour le lien Mailto

     

Private Sub lblMail_Click()

   Link = "mailto:support@ericrenaud.fr"

   On Error GoTo NoCanDo

   ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:= True

   Unload Me

   Exit Sub

NoCanDo:

   MsgBox "Impossible d'ouvrir " & Link

End Sub

Ecrire le code VBA pour le lien URL

     

Private Sub lblWeb_Click()

   Link = "http://ericrenaud.fr"

   On Error GoTo NoCanDo

   ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:= True

   Unload Me

   Exit Sub

NoCanDo:

   MsgBox "Impossible d'ouvrir " & Link

End Sub

8 - Maintenant il va falloir simuler le changement du curseur au passage de la souris sur le lien
9 - Chaque label à deux propriétés qui sont :
       - MousePointer
       - MouseIcon
Par défaut MousePointer est à 0
10- On va changer ce 0 par 99-fmMousePointerDefault

Par défaut MouseIcon est à (Aucun)
11 - On va dérouler cette liste et choisir une icône simulant une main (hand.cur)

Maintenant, lorsque la souris survolera le lien, le curseur sera donc remplacé par une main et
en cliquant, sur ce lien, on sera dirigé soit vers le navigateur Web à l'URL indiquée, soit vers
le logiciel de messagerie avec l'adresse mail définie.

Télécharger le fichier hand-m.cur
     
      Exemple réalisé d'après une idée de John Walkenbach, traduit et adapté par mes soins.