Se postionner sur semaine en cours en VBA

[aubelix]

Bonsoir à tous.
Ci-joint fichier acec des feuilles pour chaque semaine (Sem44 - Sem45 etc...)
Que faut-il modiifer dans le code joint pour se possitionner sur la feuille de la semaine en cours en se basant sur la date du jour.
Merci pour votre aide.

 

[omicron]

Bonsoir Aubelix,

Le code suivant devrait répondre au problème :

=====================================================
Private Sub Workbook_Open()
On Error GoTo ExistePas
Sheets("Sem" & Format(Now, "ww")).Activate
On Error GoTo 0
Exit Sub
ExistePas: MsgBox "La feuille " & "Sem" & Format(Now, "ww") & " n'existe pas." & Chr(10) & _
"Positionnement impossible."
End Sub
=====================================================

Cordialement.

Omicron

 

[aubelix]

Bonsoir omicron.

Merci pour ton aide, c'est impeccable.
Bonne soirée.