Combobox conditionnée par date du jour Résolu

Question

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 !!!!

Chriscam8786 · Answer

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 !

Combobox conditionnée par date du jour

1 réponse

Discussions similaires

Newsletters