Se postionner sur semaine en cours en VBA

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

Bonsoir omicron.

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