Private Sub CommandButton1_Click()
If Absences = "" Or TextBox1 = "" Or TextBox2 = "" Then
Exit Sub
End If
' a retirer quand le suite de la macro sera faite
MsgBox "Début de l'impression"
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
Private Sub TextBox1_AfterUpdate()
If Not IsDate(TextBox1) Then
MsgBox "Format Date jj/mm/aaaa"
TextBox1 = ""
Else
TextBox1 = Format(TextBox1, "dd/mm/yyyy")
End If
End Sub
Private Sub TextBox2_AfterUpdate()
If Not IsDate(TextBox2) Then
MsgBox "Format Date jj/mm/aaaa"
TextBox2 = ""
Else
TextBox2 = Format(TextBox2, "dd/mm/yyyy")
End If
End Sub