Macros ? Envoi d'un courriel lorsqu'expiré

Bonjour,

J'aimerais savoir comment faire pour que quand une date expire dans mon tableau excel qu'il m'envoie un alerte dans mon Outlook...

Merci

Sans ouvrir le tableau pour que le code s’exécute ça s'annonce compliqué car il faut passer par un script vbs.

Sinon à l'ouverture du classeur (à adapter dans ThisWorkbook):

Il faut activer la référence Microsoft Outlook Application (Outils->Reference dans la fenêtre VBA)

Private sub ThisWorkbook_Open()

If xxxxxx 'condition qui va engendrer l'envoi du mail

Set OutApp = New Outlook.Application
Set OutMail = OutApp.CreateItem(olMailItem)

OutMail.To = "xxxx" 'Tes destinataires
OutMail.CC = "xxxxx" 'Les personnes en copie
OutMail.Recipients.ResolveAll 'Simule un Ctrl+K

OutMail.Subject = "xxxxxx" 'le sujet de ton email
OutMail.Body = "xxxxxx" 'le coprs de texte

OutMail.Send 'permet d'envoyer l'email

End If

End Sub