Bonjour Leakim, bonjour le forum,
Essaie avec ce code à placer dans le composant ThisWorkbook de chaque classeur où tu veux que ça agisse :
Private Sub Workbook_Open()
On Error Resume Next
Sheets(Format(Date, "mmmm")).Activate
If Err <> 0 Then MsgBox "L'onglet " & Format(Date, "mmmm") & " n'existe pas !"
End Sub