Microsoft 365 Envoi mail Outlook si date dépassée

[ozone083]

Bonjour

Je souhaite qu'un mail me soit envoyé tous les lundi et jeudi pour me rappeler les actions qui n'ont pas été réalisées
La date de réalisation se trouve en colonne J (Date Initiale) ou en Colonne J (Date replanifiée).

Le contenu du mail serait :
"Bonjour,
A ce jour, les actions suivantes n'ont pas été réalisées :

• Action 1 : [Valeur ds la cellule C ] / [Valeur ds la cellule D ] : [Valeur ds la cellule G] - Retard de X jours avec X = date du jour - valeur en cellule [J] ou cellule [K]
• Action 2 : idem
• Action 3 : idem
• ......

Merci
"

Il serait envoyé via la messagerie outlook et au mail suivant : prenom.nom@enreprise.com

En vous remerciant pour votre aide

Cordialement


PS : fichier template ci joint

 

[SLICER]

Bonjour ozone83,
le CFO masqué explique cela très bien sur le lien suivant : l'avez vous vu?

. bon courage SLICER

 

[ozone083]

Bonjour SLICER

Oui cela est très bien expliqué.....cependant je ne souhaite pas qu'envoyer un courriel.
Je souhaite qu'une vérification de date soit faite sur chacune des lignes de mon fichier, que cette date soit comparée avec la date du jour et si la condition est remplie (par exemple date du fichier < date du jour - 4 jours), un courriel est envoyé à un email en spécificant le contenu de la ligne concernée...

Merci en tous les cas

Bon weekend

 

[Estysh]

Salut!
Pour la vérification, tu peux essayer:

Dim cel as Range
Dim iRow as integer
iRow = sheets("nomdelafeuille").Range("J"&rows. Count).End(xlup).row
For each cel in sheets("nomdelafeuille").range("J2:J" & iRow)
It cel.value = Dateadd("d", -4, Date) then
...