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
A voir également:

2 réponses

Réponse 1 / 2
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
Réponse 2 / 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