MsgBox pour alerte chaque fin d'année au 31 décembre

MuscatMimi · 4 Décembre 2008

Bonjour a tout le forum

Dans mon appli en fin de dévellopement je cherche a créer un MsgBox
afin ,qu'en fin d'année une alerte sur ma page Accueil

afin qu'au 31 Décembre de chaque année, a 20 heures un message d'alerte s'affiche sur ma page d'Accueil, et que ceMsgBox , 'affiche toujours temps que le nouveau classeur n'est pas crée,
alerte genre "Attention vous êtes arrivé en fin d'année penser a créér un nouveau classeur

merci beaucoup a bientôt
Cordialement

job75 · 4 Décembre 2008

Re : MsgBox pour alerte chaque fin d'année au 31 décembre

Bonjour,

Pour simplement un message d'alerte le 31/12 à 20:00 :

Code:

'Dans ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime CDate("31/12/" & Year(Date) & " 20:00"), "message"
End Sub

'Dans un module
Sub message()
MsgBox "votre message"
End Sub

Pour l'histoire du classeur créé ou non, il faut un test dans la 1ère macro, je vous laisse le faire...

A+

job75 · 4 Décembre 2008

Re : MsgBox pour alerte chaque fin d'année au 31 décembre

Re,

Je vais quand même vous aider un peu plus.

Si le classeur doit être dans le même dossier et qu'il s'appelle toto, écrivez :

Code:

'Dans ThisWorkbook
Private Sub Workbook_Open()
If Dir(ThisWorkbook.Path & "\toto.xls") <> "" Then Application.OnTime CDate("31/12/" & Year(Date) & " 20:00"), "message"
End Sub

Sinon remplacez ThisWorkbook.Path par le chemin d'accès.

A+

job75 · 4 Décembre 2008

Re : MsgBox pour alerte chaque fin d'année au 31 décembre

Re,

Bon, j'ai oublié une chose.

Si l'on veut que le message ne s'affiche qu'une fois si le classeur est ouvert plusieurs fois dans la même session d'Excel, utiliser :

Code:

'Dans ThisWorkbook
Private Sub Workbook_Open()
[COLOR="Red"]On Error Resume Next
Application.OnTime CDate("31/12/" & Year(Date) & " 20:00"), "message", Schedule:=False[/COLOR]
If Dir(ThisWorkbook.Path & "\toto.xls") <> "" Then Application.OnTime CDate("31/12/" & Year(Date) & " 20:00"), "message"
End Sub

A+

MuscatMimi · 4 Décembre 2008

Re : MsgBox pour alerte chaque fin d'année au 31 décembre

Salut Job75

merci pour tes réponses , ça me va ,,,,,,super
je viens de tester c'est OK
Par contre j'espére qu'une fois le classeur 2008 est sauvegardé,que le MsgBox n s'affichera plus

et de même pour le classeur créé

A voir ,je vais testé cette manip

A + Job et merci encore

job75 · 4 Décembre 2008

Re : MsgBox pour alerte chaque fin d'année au 31 décembre

Re,

vaucluse immo à dit:
Par contre j'espére qu'une fois le classeur 2008 est sauvegardé,que le MsgBox n s'affichera plus

Je ne comprends pas, et rien n'est prévu en ce sens.

Le message s'affichera à chaque ouverture du classeur 2008, après le 31/12/08 20:00, tant que le classeur 2009 ne sera pas créé.

A+

job75 · 4 Décembre 2008

Re : MsgBox pour alerte chaque fin d'année au 31 décembre

Re,

Un point qui cloche.

Si la session Excel reste la même entre l'ouverture du classeur et le 31/12/08 20:00, et que vous créez le classeur 2008 entre ces 2 instants, le message s'affichera quand même.

Pour remédier à ce problème, mettez le test dans la 2ème macro et ôtez-le de la 1ère :

Code:

'Dans un module
Sub message()
[COLOR="Red"]If Dir(ThisWorkbook.Path & "\toto.xls") <> "" Then[/COLOR] MsgBox "votre message"
End Sub

A+

MsgBox pour alerte chaque fin d'année au 31 décembre

MuscatMimi

XLDnaute Accro

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

MsgBox pour alerte chaque fin d'année au 31 décembre

MuscatMimi

XLDnaute Accro

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency