Bonjour,
Je cherche à ouvrir mon client messagerie après avoir double cliqué dans une cellule pour envoyer un mail pré formaté.

Tout cela fonctionne au poil à un souci près:

La cellule en question contient l'adresse mail du destinataire (K1), je double clique dessus, ce qui me lance bien mon code....mais aussi l'ouverture d'une fenêtre du client messagerie non pré formatée.
Il faudrait donc que le double clic lance le code mais n'ouvre pas le lien hypertext de l'adresse mail contenue dans K1.

J'espère m'être expliqué de façon compréhensible.

Merci


Le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 
 
    If Range("A65536").End(xlUp).Value <> "" And Range("A65536").End(xlUp).Offset(0, 10).Value = "X" And InStr(1, Cells(Target.Row, 11), "@") > 0 Then
 
 
        ENVOYER = MsgBox("ENVOYER MAIL?", vbYesNo + vbQuestion, "ENVOYER MAIL?")
    If ENVOYER = vbYes Then
       Envoimail
    Else
        MsgBox "PAS D'ENVOI "
        Target.Offset(1, 0).Select
        Exit Sub
 
    End If
    End If
     Target.Offset(1, 0).Select