WorksheetFunction.EDate

Bonjour,

Je souhaiterais vérifier des dates dans ma base arrivant d'ici 1 mois et demi soit environ 45 jours

j'ai donc mis cette formule mais je n'ai pas l'impression que cela fonctionne correctement

TblBD(i, 7) étant une date exemple 30/11/2020

 If TblBD(i, 7) > Now And TblBD(i, 7) < WorksheetFunction.EDate(Now, "45") And TblBD(i, 10) = "Y" Then

une idée de comment écrire cela svp?

merci par avance

Salut,

Pourquoi ne pas gérer avec une somme au lieu de Edate ?

If TblBD(i, 7) > Now And TblBD(i, 7) < Now + 45 And TblBD(i, 10) = "Y" Then
'Truc à faire

End if

Girodo,

Bonjour,

Ou simplement la différence entre deux dates pour savoir si c'est supérieur à 45 ?

If DateDiff("d", Now, TblBD(i, 7).value) > 45 Then

merci à vous pour vos propositions

j'en prends bonne note

Bonne soirée