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