Bonjour,
J'ai une TexteBox "Texte0" à laquelle j'ai appliqué =Date()
Je souhaite qu'à l'ouverture de mon formulaire si la date de Texte0 est mercredi, une MsgBox apparait avec le message "Toto" par exemple

J'ai essayé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Form_Current()
    Iff (Weekday([Texte0]) = 4,  (MsgBox "Toto", vbExclamation, "Toto")
  End Sub
mais il n'aime pas du tout
Comment faire ?
Merci
Nicolas