Bonjour,
Voici une piste. Le code est à mettre dans le module du classeur et sera exécuté à l'ouverture de celui-ci :
Private Sub Workbook_Open()
Dim AppOutlook As Object
Dim OutMail As Object
Dim AdrMail As String
'la date limite est en cellule "D1" de la feuille "Feuil1", à adapter
If Worksheets("Feuil1").Range("D1").Value - Date > 30 Then
Set AppOutlook = CreateObject("Outlook.Application")
Set OutMail = AppOutlook.CreateItem(0)
AdrMail = "lenom@orange.fr" '<--- adapter l'adresse mail !
MsgBox "Il reste 30 jours ou moins avant la date limite, un mail va être envoyé à l'adresse :" & _
vbCrLf & _
AdrMail & _
vbCrLf & _
"Pensez à changer la date limite pour le contrôle suivant !"
With OutMail
.To = AdrMail
.Subject = "Contrôle appareil de mesure"
.Body = "Bonjour," & _
Chr(13) & _
Chr(13) & _
"ATTENTION URGENT VERIFICATION APPAREIL DE MESURE." & _
Chr(13) & _
Chr(13) & _
"Très cordialement"
.Display
'.Send'<--- enlever l'apostrophe pour que le mail soit envoyé automatiquement !
End With
Set OutMail = Nothing
Set AppOutlook = Nothing
End If
End Sub