Envoi mail par clic

[Ludion62]

Bonjour,

Je souhaite envoyer un mail par clic sur un bouton. Mais auparavant, je voudrais afficher un message stipulant de remplir la cellule B5 si celle-ci est vide et stopper la macro.

Voici ce que j'ai fait pour l'envoi du mail :

Sub EnvoiMail()
ActiveSheet.Name = "Demande d'achats"
Workbooks("Demande d'achats new.xls").SendMail Recipients:="xxxxx@xxxx.fr", _
Subject:="Commande du " & Now, _
ReturnReceipt:=True
End Sub

Merci par avance de l'aide que vous pourrez m'apporter.

 

[James007]

Re : Envoi mail par clic

Bonjour,

Si je comprends ta demande ...

If IsEmpty(Range("B5") Then
   MsgBox "La cellule B5 est vide ..."
   Exit Sub
End If

A +

 

[Ludion62]

Re : Envoi mail par clic

Je te remercie de ta réponse mais a priori il me met une erreur de syntaxe et m'affiche "If IsEmpty(Range("B5") Then" en rouge ...

 

[Ludion62]

Re : Envoi mail par clic

C'est bon, j'ai trouvé : il manquait tout simplement une parenthèse.

Encore un grand merci !!!