salut steelson,
merci pour ton code, mais je pige pas tout...
on ouvre pas le fichier le lundi 01/01/
on va l'ouvrir le mardi 02/01
recherche du 02/01 = no found
donc
If Weekday(Date, vbMonday) = 1 And Sheets("exemple").Range("A1") <> Sheets("exemple").Range("A2") Then 'envoie le jour 1 de la semaine (lundi)
Sheets("exemple").Range("A1") = Date
EnvoiMailRelance
End If
le mail ne part pas puisqu'on est mardi
mais du coup^, je pense qu'on peut faire plus simple, genre si A2-A1>7 (jours), envoi mail...!
ca allége le code puisqu'il n'y a plus de recherche de férie.
merci bcp!