Ajout d'un message si date passée....

[libellule85]

Bonjour le forum,

J'aurais encore besoin de vos lumières. Voilà, j'ai une macro qui actualise 5 feuilles et grâce à Modeste geedee j'y ai ajouté une limite de temps (macro ci-dessous). Je voudrais ajouter un message quand la date est supérieure au 20/03/2014 du style "Actualisation impossible : date dépassée !!"

Sub ActuGenerale()
If Date > DateSerial(2014, 3, 20) Then Exit Sub
ActiveWorkbook.RefreshAll 
End Sub

D'avance je vous remercie de votre aide

 

[Pierrot93]

Re : Ajout d'un message si date passée....

Bonjour,

modifie comme suit :

Sub ActuGenerale()
If Date > DateSerial(2014, 3, 20) Then MsgBox "Actualisation impossible : date dépassée !!": Exit Sub
ActiveWorkbook.RefreshAll
End Sub

bonne journée

 

[libellule85]

Re : Ajout d'un message si date passée....

Bonjour Pierrot93,

Merci beaucoup pour ta réponse.
Bonne journée et bonnes fêtes de fin d'année