bonjour,
pour l'envoi de mail si une date correspond à une date en colonne H, il n'y a pas de problème.
il faut cependant vérifier que la date en colonne H est bien typée comme étant une date.
il faut lancer la macro tous les jours, donc il faut y penser ou définir une tâche au niveau du planificateur de tâches (l'ordinateur doit rester allumer en permanence) et lancer la macro automatiquement à l'ouverture du classeur.
à mettre dans un nouveau module
Sub envoimailadate()
'macro d'envoi de mails lorsque qu'une date est atteinte ou dépassée.
dl = Cells(Rows.Count, "H").End(xlUp).Row
Set ol = CreateObject("outlook.Application")
For i = 1 To dl
If Cells(i, "H") <= Cells(1, 1) And Cells(i, "I") <> "mail envoyé" Then 'si date atteinte et mail pas encore envoyé
Set om = ol.createitem(0)
With om
.To = Cells(i, "B") ' colonne contenant l'adresse mail du destinataire
.Subject = " sujet"
.body = "message"
.display 'supprimer cette instruction après avoir vérifié que le message est composé correctement
'.send 'enlever le commentaire pour envoyer le mail automatiquement
End With
Cells(i, "I") = "mail envoyé" 'colonne dans laquelle mettre une indication que le mail a été envoyé
End If
Next i
End Sub
à mettre dans le module this workbook
Private Sub Workbook_Open()
envoimailadate 'executer la macro ci-dessus à l'ouverture du classeur.
End Sub