Onglets

[malinsard]

bonjour a tous, j'ai un classeur qui comporte 10 feuilles chaque feuille comprend un planning sur 6 semaines sauf la dixième qui me sert uniquement pour déterminer les jours féries.
Je voudrais en fonction de la date du jour que le classeur s'ouvre sur la feuille qui contient cette date, j'ai bien chercher sur le forum mais rien trouve, je souhaiterai aussi que l'onglet soit en couleur.
Merci de votre aide.

ci-joint le fichier

 

[JCGL]

Re : Onglets

Bonjour à tous,

Peux-tu essayer :

Private Sub Workbook_Open()
    Dim Sh As Sheets
    For O = 1 To 9
        Sheets(O).Activate
        Sheets(O).Unprotect "d6wk56hc78"
        For Lig = 7 To 48
            Cells(Lig, 1).Select
            If Cells(Lig, 1) = Date Then Exit Sub
        Next Lig
    Next O
    ActiveSheet.Protect "d6wk56hc78"
End Sub

A+ à tous

 

[malinsard]

Re : Onglets

Merci beaucoup fonctionne nickel