Apparition du message quelques jours avant

Bonjour,

J’ai bloqué une petite application Excel en utilisant le code VBA suivant que j’ai trouvé dans ce forum:

If Date > CDate("17/09/13") Then

ActiveWorkbook.Close

Else

MsgBox ("autorisé jusqu'au 17/09/13")

End If

Tout marche bien mais je veux que le message qui indique la date de la fermeture n’apparaisse qu’un mois avant la date indiquer dans le code.

Y a-t-il une solution à ça ?

Merci pour votre aide

Cordialement

Essai cette modification de ton code :

If Date > CDate("17/09/13") Then

ActiveWorkbook.Close

ElseIf Date > CDate("17/09/13") - 30 Then

MsgBox ("autorisé jusqu'au 17/09/13")

End If

gmb a écrit :

Essai cette modification de ton code :

If Date > CDate("17/09/13") Then

ActiveWorkbook.Close

ElseIf Date > CDate("17/09/13") - 30 Then

MsgBox ("autorisé jusqu'au 17/09/13")

End If

Merci bien