Forums XLPages

Excel & VBA Espace Débutants Apparition du message d'alerte quelques jours avant

Apparition du message d'alerte quelques jours avant
#1
chindou
Débutant XLPages

Inscription: 24/03/2012
De Algerie

Messages: 6

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 04-04-2013 18h12
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
Hors Ligne
 Rapport   Haut 

Re: Apparition du message d'alerte quelques jours avant
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 04-04-2013 21h47
Bonsoir chindou, le Forum,

Sans doute une solution possible :
Dim DatFin As Date

    DatFin = "17/09/13"
   
    Select Case Date

    Case Is > DatFin
        ThisWorkbook.Close

    Case Is > DateAdd("m", -1, DatFin)
        MsgBox "autorisé jusqu'au " & DatFin

    End Select

Nb: pour insérer proprement un extrait de code VBA dans le forum : c'est ICI. Merci.

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes