insertion adresse e-mail dans un userform

Bonjour,

J'arrive au bout de mon code et j'aimerai insérer mon adresse e-mail pour contact en cas de problème ou d'information.

J'ai inséré la dite adresse, mais celle-ci n'est pas soulignée, donc pas de lien avec outlook.

merci pour aide

tremens :?

bonjour tremens,

dans cet exemple le Label1.Caption est = à l'adresse courriel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_Initialize() With Me.Label1 .ForeColor = RGB(0, 0, 255) .Font.Underline = xlUnderlineStyleSingle End With End Sub   Private Sub Label1_Click() ActiveWorkbook.FollowHyperlink Address:="mailto:" & Label1.Caption, NewWindow:=True End Sub   Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.MousePointer = 14 End Sub

---

isabelle

Merci Isabelle, je vais l'intégrer à mon code...:ccool: