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.
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.