Rapport de message :*
 

Re: Apparition du message d'alerte quelques jours avant

Titre du sujet : Re: Apparition du message d'alerte quelques jours avant
par myDearFriend! le 04/04/2013 21:47:43

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,