Apparition du message d'alerte quelques jours avant

chindou · 4 Avril 2013

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

DoubleZero · 4 Avril 2013

Re : Apparition du message d'alerte quelques jours avant

Bonjour, chindou, le Forum,

Peut-être ainsi :

Code:

Option Explicit
Private Sub Workbook_Open()
If CDate("17/09/13") - Date < 30 Then MsgBox ("autorisé jusqu'au 17/09/13")
If Date >= CDate("17/09/13") Then ActiveWorkbook.Close
End Sub

A bientôt

chindou · 4 Avril 2013

Re : Apparition du message d'alerte quelques jours avant

DoubleZero à dit:
Bonjour, chindou, le Forum,

Peut-être ainsi :

Code:

Option Explicit Private Sub Workbook_Open() If CDate("17/09/13") - Date < 30 Then MsgBox ("autorisé jusqu'au 17/09/13") If Date >= CDate("17/09/13") Then ActiveWorkbook.Close End Sub

A bientôt

Merci bien

Apparition du message d'alerte quelques jours avant

chindou

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

chindou

XLDnaute Occasionnel

Discussions similaires