date vba ouverture anniv

Le
shillow
bonjour,
j utilise un pro logiciel sous excel

je voudrais qu'a l'ouverture du dossier il check en VBA la date et si c'est
la date du 13 janvier 2010 il ouvre une msgbox disant bon anniversaire

est ce possible?

c 'est juste pour faire une surprise

meci d avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FdeCourt
Le #20955221
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.
michdenis
Le #20956101
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"
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.
shillow
Le #20957191
merci bcp c nikel


"FdeCourt"
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.
Publicité
Poster une réponse
Anonyme