date vba ouverture anniv

Salut,

Pour que cela marche sous Excel, dans un classeur, mettre dans le
module ThisWorkBook :

Private Sub Workbook_Open()
madate = CDate("01/13/2010")
If Date = madate Then MsgBox "Bon Anniversaire"
End Sub

Ainsi, à l'ouverture du classeur, il va vérifier la date, et si cela
correspond, afficher le message.

Cordialement,

F.

Bonjour,

Si je peux me permettre,

L'usage de la fonction "DateSerial" serait préférable afin de
s'affranchir du format "Date" définit dans le panneau de
configuration qu'utilise la fonction de conversion "Cdate".

madate = DateSerial(2010, 1, 13)




"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de groupe de discussion :
6699ccc6-faf2-4361-a4a2-c1bfbe12f211@e27g2000yqd.googlegroups.com...
Salut,

Pour que cela marche sous Excel, dans un classeur, mettre dans le
module ThisWorkBook :

Private Sub Workbook_Open()
madate = CDate("01/13/2010")
If Date = madate Then MsgBox "Bon Anniversaire"
End Sub

Ainsi, à l'ouverture du classeur, il va vérifier la date, et si cela
correspond, afficher le message.

Cordialement,

F.

merci bcp c nikel


"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
6699ccc6-faf2-4361-a4a2-c1bfbe12f211@e27g2000yqd.googlegroups.com...
Salut,

Pour que cela marche sous Excel, dans un classeur, mettre dans le
module ThisWorkBook :

Private Sub Workbook_Open()
madate = CDate("01/13/2010")
If Date = madate Then MsgBox "Bon Anniversaire"
End Sub

Ainsi, à l'ouverture du classeur, il va vérifier la date, et si cela
correspond, afficher le message.

Cordialement,

F.