Test sur jour de la semaine

Bonjour,

Je cherche à connaître le code VBA pour traduire le test ci-dessous :

Si aujourd'hui nous sommes un lundi alors.....

Si aujourd'hui nous sommes un mardi alors.....

Et ainsi de suite jusqu'au vendredi

En attente de vos solutions.

Merci d'avance

Dadams51

Bonjour,

Un début de réponse :

Public Sub XXX()
Dim dt As Date
    dt = Date 'aujourd'hui
    '1=dim, 2=lun, ..., sam=7
    Select Case Weekday(dt)
        Case 1:    'code
        Case 2:
        Case 3:
        Case 4:
        Case 5:
        Case 6:
        Case 7:
    End Select
End Sub

Merci Jean-Eric,

Et en plus c'est simple !

A+