Apparition du message d'alerte quelques jours avant [Résolu/Fermé]

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- - Dernière réponse : f894009
Messages postés
14717
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2019
- 5 avril 2013 à 08:30
Bonjour,
J'ai limité l'utilisation d'une petite application Excel en utilisant le code VBA suivant que j'ai trouvé dans un 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 d'alerte 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
Afficher la suite 

1 réponse

Messages postés
14717
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2019
1172
0
Merci
Bonjour,

ex:
Sub test()
    If Date > CDate("17/09/13") Then
        ActiveWorkbook.Close
    Else
        If CDate("17/09/13") - Date < 31 Then
            MsgBox ("autorisé jusqu'au 17/09/13")
        End If
    End If
End Sub


Bonne suite