Discussion :

[Kestion100]

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

[goldstar]

Bonjour,


Pourquoi ne pas passer par un clic droit au lieu d'un double clic ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
If Target.Column = 11 Then '11 correspond à la colonne K
    Cancel = True 'Désactive le menu di click droit
 
    'ICI votrer procedure
 
End If
 
 
End Sub

Cordialement,

[Kestion100]

Oui, je n'y avais pas pensé et s'il n'y a vraiment aucune solution avec le double clic, je prends.

Merci

Aucun équivalent au

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cancel = True

pour un lien hypertext?