Re-bonjour, voici en fait la réponse
Private Sub Calendar1_Click()
UserForm1.TextBox1.Text = Format(Calendar1, ' dddd DD mmmm yyYY')
Unload Me
End Sub
et l'exemple Lien supprimé, sélectionne le fichier pournikki.zip
Message édité par: maxoverfred, à: 19/08/2005 09:43