Lancement d'une macro à date donnée

[KAR_inette]

Bonjour à tous ....
Voila mon problème :
J'ai créé un userform avec un message d'anniversaire sur le fichier d'un collègue.
J'aimerais que ce userform se lance automatiquement à une date precise (le 4 janvier 2004, pour être precise).
Je pense qu'il y a moyen de réaliser ceci ....
Merci d'avance à tous et joyeux Halloween !!!

 

[vincent]

bonjour

ce code devrait fonctionner

Private Sub Workbook_Open()
If Date = DateValue("4/1/04") Then UserForm1.Show 'change le nom de la userform au cas ou.
End Sub

tu peux le copier coller dans le module thisworkbook.

A plus

@+Vincent

ps: si tu remplace DateValue("4/1/04") par DateValue("4/1") ta userform s'affichera tous les ans le 4 janvier.