Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel lien de messagerie dans un UserForm

lien de messagerie dans un UserForm

2 réponses
Avatar
Guy72
Bonsoir,
Je voudrais avoir mon adresse de messagerie apparaître avec mon UserForm et
pouvoir cliquer dessus pour faire apparaître la fenêtre nouveau message de
Outloook Express.
Comment faire ?

Cordialement
Guy
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

http://cjoint.com/?kbfN3rqKdr

Private Sub MonLien_Click()
On Error Resume Next
Err = 0
ActiveWorkbook.FollowHyperlink Address:=Me.MonLien.Caption,
NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End Sub

Private Sub MonMail_Click()
On Error Resume Next
Err = 0
ActiveWorkbook.FollowHyperlink Address:="mailto:" &
Me.MonMail.Caption, NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End Sub

Cordialement JB


Bonsoir,
Je voudrais avoir mon adresse de messagerie apparaître avec mon UserFor m et
pouvoir cliquer dessus pour faire apparaître la fenêtre nouveau messa ge de
Outloook Express.
Comment faire ?

Cordialement
Guy


Avatar
Guy72
Bonjour JB,
Merci de ton aide, c'est parfait.
Cordialement
Guy


"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?kbfN3rqKdr

Private Sub MonLien_Click()
On Error Resume Next
Err = 0
ActiveWorkbook.FollowHyperlink Address:=Me.MonLien.Caption,
NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End Sub

Private Sub MonMail_Click()
On Error Resume Next
Err = 0
ActiveWorkbook.FollowHyperlink Address:="mailto:" &
Me.MonMail.Caption, NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End Sub

Cordialement JB


Bonsoir,
Je voudrais avoir mon adresse de messagerie apparaître avec mon UserForm
et
pouvoir cliquer dessus pour faire apparaître la fenêtre nouveau message de
Outloook Express.
Comment faire ?

Cordialement
Guy