Ouvrir un fichier Excel sur un segment, Slicer, du mois en cours

AstraLife Messages postés 99 Statut Membre -  
AstraLife Messages postés 99 Statut Membre -
Bonjour,

Je souhaite à l'ouverture d'un fichier Excel, que les segments (Slicer) ce positionnent sur le mois en cours ou éventuellement la semaine en cours.

J'ai trouvé comment gérer les segments à l'ouverture mais en nommant le mois donc cela n'est pas bon pour une gestion auto.

Si quelqu'un a une idée, merci. 

With ActiveWorkbook.SlicerCaches("Segment_Mois21")
        .SlicerItems("nov").Selected = True
End With
End Sub

2 réponses

  1.
    AstraLife Messages postés 99 Statut Membre
     
    J'ai donc essayé en déclarant le mois en cours,
    ça fonctionne bien mais je n'arrive pas à trouver comment désélectionner
    les autres mois à l'ouverture aussi. 

    Private Sub Workbook_Open()

    ma_date = Date
    Mois = Format(ma_date, "mmm")

    Sheets("Sommaire").Select

    With ActiveWorkbook.SlicerCaches("Segment_Mois21")
    .SlicerItems(Mois).Selected = True

    End With

    End Sub


    J'ai essayé ceci mais la le fichier Excel s'ouvre avec tous les mois de sélectionnés et ne prend pas en compte la suite du code pour cliquer sur le mois en cours. 

    Private Sub Workbook_Open()

    ma_date = Date
    Mois = Format(ma_date, "mmm")
    Semaine = Format(ma_date, "jj")

    Sheets("Sommaire").Select

    ActiveWorkbook.SlicerCaches("Segment_Mois21").ClearManualFilter

    With ActiveWorkbook.SlicerCaches("Segment_Mois21")
    .SlicerItems(Mois).Selected = True

    End With
    ActiveWorkbook.Save

    End Sub
    0
  2. AstraLife Messages postés 99 Statut Membre
     
    Bonjour,

    Je n'ai toujours pas réussi à trouver une solution à ce problème,
    je suis pas loin mais ça bloque toujours pour tomber sur le mois en cours à l'ouverture du fichier.

    Le code 

    Private Sub Workbook_Open()

    ma_date = Date
    Mois = Format(ma_date, "mmmm")
    Semaine = Format(ma_date, "jj")

    Sheets("Sommaire").Select
    Application.ScreenUpdating = False
    Range("IV65535").Activate
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Application.ScreenUpdating = True

    Sheets("Sommaire").Select
    ActiveWorkbook.SlicerCaches("Segment_Mois").ClearManualFilter

    With ActiveWorkbook.SlicerCaches("Segment_Mois")
    .SlicerItems(Mois).Selected = True

    End With
    ActiveWorkbook.Save

    End Sub
    0