Me.TextBox1.Value = Format(Calendar1, "DD/MM/YY")
Me.TextBox1.Value = Format(Calendar1, "DD/MM/YY")
Sub Calendar1_Click()
Me.TextBox1.Value = Format(Calendar1, "DD/MM/YY")
Unload Me
End Sub
Public Date_debut As Date
Private Sub Calendar1_Click()
Date_debut = Format(Calendar1, "dd/mm/yyyy")
Unload Me
End Sub