Changer automatiquement couleur onglet par jour actif

Bonjour

Pour mettre en rouge l'onglet correspondant à la date du jour et en vert les autres dates à l'ouverture du fichier

Option Explicit

Const rouge = 3
Const vert = 50

Private Sub Workbook_Open()
Dim m As Long
Dim nomfj As String
nomfj = Format(Day(Date), "00") & "_" & Format(Month(Date), "00")
MsgBox "Valider pour continuer"
For m = 1 To Sheets.Count
  If IsNumeric(Left(Sheets(m).Name, 1)) Then
    If Sheets(m).Name = nomfj Then
      Sheets(m).Tab.ColorIndex = rouge
    Else
      Sheets(m).Tab.ColorIndex = vert
    End If
  End If
Next m
End Sub

Alt-F11 pour accéder à l'éditeur vba, code à mettre dans le module du Workbook

Si ça convient, supprimer la ligne msgbox ....

Cdlmnt

Bonjour,

Étant un nul, je n'arrives pas à faire fonctionner le code ...

MCpk4LrTVq0_test-script-VBA.jpg

Bonjour,

... excusez-moi, apparemment j'avais oublié d'accepter l'ouverture des macros... :-(

Maintenant ça fonctionne à merveille 

Un tout grand merci

Bien à vous