Rapport de message :*
 

Re: Griser un onglet de classeur

Titre du sujet : Re: Griser un onglet de classeur
par myDearFriend! le 08/11/2014 13:23:48

Bonjour ericcool, Mth, le Forum Sourire

 

Je suis un peu de l'avis de notre amie Mth, ce que tu cherches à faire ericcool est un peu "too much" pour Excel à mon avis...

 

Une seule proposition pour ma part (et qui ne répond pas tout à fait à ton souhait !) :

 

DANS LE MODULE DE CODE THISWORKBOOK :

 

 

Option Explicit
' myDearFriend!  -  www.mdf-xlpages.com

Dim Jsem As String

Private Sub Workbook_open()
    Jsem = Application.Proper(Format(Date, "dddd"))
    Sheets(Jsem).Activate
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Not Sh Is Sheets(Jsem) Then
        Sheets(Jsem).Activate   'On réactive la feuille du jour
    End If
End Sub
 

Evidemment, ça suppose que tu possèdes à minima un onglet pour chaque jour de la semaine (et pour éviter un plantage si on lance le fichier le week-end, j'ai ajouté Samedi et Dimanche !).

 

Sauf à imaginer une usine à gaz sur base d'API Windows (et encore, je ne suis pas sûr que ça puisse être tout à fait réalisable), il n'y a aucune autre alternative à mon avis.

 

En espérant t'avoir rendu service... et en te remerciant pour ta participation au sein de ce Forum tout comme l'amie Mth wink

 

Bien cordialement,