Comment utiliser le jour de la semaine dans une condition

Bonsoir,

Je chercher à créer une macro qui, à l'ouverture du classeur, sélectionnerait la feuille correspondant au jour de la semaine...

Voilà ou j'en suis :

Sub auto_open ()

 if "jour_de_la_semaine" = "lundi" then
  sheets("lundi").select

 elseif "jour_de_la_semaine" = "mardi" then
  sheets("mardi").select

 elseif "jour_de_la_semaine" = "mercredi" then
  sheets("mercredi").select

 elseif "jour_de_la_semaine" = "jeudi" then
  sheets("jeudi").select

 elseif "jour_de_la_semaine" = "vendredi" then
  sheets("vendredi").select

 end if

end sub

J'ai déjà contourné le problème en formatant une cellule dans chacune des feuilles du classeur et en utilisant la valeur de cette cellule. Maintenant je cherche une méthode plus élégante (et surtout plus pratique) qui utiliserait uniquement le code vba. Qui peut m'aider ?

En vous remerciant d'avance.

Bonsoir

Essaye avec ce code à placer dans ThisWorkbook

Private Sub Workbook_Open()
Dim x As String
x = Format(Date, "dddd")
Sheets(x).Activate
End Sub

Amicalement

Nad

Ouaho !

Simple, rapide, efficace...

Grand merci !