Bien le code qui t'as déjà été proposé doit fonctionner...
que ce passe t'il ...?
tu peu aussi tester de modifier le code par
Private Sub Workbook_Open()
MsgBox Format(Date, "d mmmm")
End Sub
et de vérifier que le bon nom d'onglet est alors affiché ..