Combobox conditionnée par date du jour

Résolu/Fermé
Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 - 22 janv. 2008 à 17:26
Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 - 18 mars 2008 à 17:13
Bonjour,

Un tout petit problème de rien du tout... mais je n'en vois pas la solution !!!

Je souhaite qu'une combobox ne s'ouvre que le 8 juillet 2008 et jamais un autre jour.

je tape ce code

Private Sub Workbook_Open()
PleinEcranOuverture
If DateValue(8 / 7 / 8) Then
Anniversaire.Show
Else
Sheets("MENU").Open
End If
End Sub

Ca marche, mais tous les jours !

Quelqu'un a-t-il une idée pour que cette combobox (nommée anniversaire) ne s'ouvre que le 8 juillet.

D'avance un grand merci !!!!
A voir également:

1 réponse

Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 8
18 mars 2008 à 17:13
Bonjour à tous,

J'ai trouvé, si ça peut aider je le poste ici

Private Sub Workbook_Open()
PleinEcranOuverture
If Date = #7/8/2008# Then
Userform1.Show
End If
End Sub

Bon courage à tou(te)s !
0