jour de semaine d'une date

bonjour le forum
Bonjour patrick

Il doit y avoir plus simple mais bon & en espérant avoir compris ta question :
Private Sub Workbook_Open()
If Weekday(Date, vbSunday) = 2 Then
MsgBox "Aujourd'hui lundi"
ElseIf Weekday(Date, vbSunday) = 3 Then
MsgBox "Aujourd'hui mardi"
ElseIf Weekday(Date, vbSunday) = 4 Then
MsgBox "Aujourd'hui mercredi"
ElseIf Weekday(Date, vbSunday) = 5 Then
MsgBox "Aujourd'hui jeudi"
ElseIf Weekday(Date, vbSunday) = 6 Then
MsgBox "Aujourd'hui vendredi"
ElseIf Weekday(Date, vbSunday) = 7 Then
MsgBox "Aujourd'hui samedi"
ElseIf Weekday(Date, vbSunday) = 1 Then
MsgBox "Aujourd'hui dimanche"
End If
End Sub
@ + Eric C

Salut,

Il y a ca aussi

Format(Now, "dddd")

Remplace 'Now par ta date.

@+ Minick