Bonjour à toutes et à tous,
je cherche à bloquer l'envoi par mail d'un classeur si tous les champs nécessaires ne sont pas remplis sur la feuille.
Donc sur la feuille, j'ai une cellule nommée "INCOMPLET" qui s'il manque une info, renvoie par une formaule =si la valeur "FICHE INCOMPLETE, les champs marqués * sont obligatoires !".
La macro d'envoi de mail doit bloquer cet envoi, justement, si la cellule "INCOMPLET" renvoi la phrase ci-dessus ...
Voici mon code qui ne focntionne pas ... quelqu'un aurait-il une solution svp ?
If INCOMPLET = "FICHE INCOMPLETE, les champs marqués * sont obligatoires !" _
then msgbox _
"Impossible d'envoyer la fiche," _
& chr(10) _
"Des informations n'ont pas été complétées", _
vbokonly + vbInformation,"FICHE INCOMPLETE !"
End If
if INCOMPLET = ""
then
ActiveWorkbook.SendMail _
Recipients:="", _
Subject:=Range("Statufiche") & " de " & Range("NomGroupe"), _
ReturnReceipt:=True
MsgBox _
"POUR LES DEMANDES ENVOYEES," _
& Chr(10) _
& "une copie de la Fiche de Synthèse reste annexée au message classé dans 'Eléments envoyés' de votre messagerie Outlook", _
vbOKOnly + vbInformation, "MESSAGERIE OUTLOOK !"
Retabli
je cherche à bloquer l'envoi par mail d'un classeur si tous les champs nécessaires ne sont pas remplis sur la feuille.
Donc sur la feuille, j'ai une cellule nommée "INCOMPLET" qui s'il manque une info, renvoie par une formaule =si la valeur "FICHE INCOMPLETE, les champs marqués * sont obligatoires !".
La macro d'envoi de mail doit bloquer cet envoi, justement, si la cellule "INCOMPLET" renvoi la phrase ci-dessus ...
Voici mon code qui ne focntionne pas ... quelqu'un aurait-il une solution svp ?
If INCOMPLET = "FICHE INCOMPLETE, les champs marqués * sont obligatoires !" _
then msgbox _
"Impossible d'envoyer la fiche," _
& chr(10) _
"Des informations n'ont pas été complétées", _
vbokonly + vbInformation,"FICHE INCOMPLETE !"
End If
if INCOMPLET = ""
then
ActiveWorkbook.SendMail _
Recipients:="", _
Subject:=Range("Statufiche") & " de " & Range("NomGroupe"), _
ReturnReceipt:=True
MsgBox _
"POUR LES DEMANDES ENVOYEES," _
& Chr(10) _
& "une copie de la Fiche de Synthèse reste annexée au message classé dans 'Eléments envoyés' de votre messagerie Outlook", _
vbOKOnly + vbInformation, "MESSAGERIE OUTLOOK !"
Retabli