Bonjours
Je voudrais savoir si la syntaxe de ma textbox (NomJour)est bonne?
dans cette textbox se trouve une date sous forme #00/00/0000#
Le probleme est que le prgramme se bloque au moment où il l'appel.
merci de votre aide.
Private Sub Jours_Click()
Dim vardate As Date
vardate = NomJour.Text
Select Case Weekday(vardate)
Case 1
Jours.Text = "Lundi"
Case 2
Jours.Text = "mardi"
Case 3
Jours.Text = "Mercredi"
Case 4
Jours.Text = "Jeudi"
Case 5
Jours.Text = "Vendredi"
Case 6
Jours.Text = "Samedi"
Case 7
Jours.Text = "Dimanche"
End Select
End Sub