Sujet Précédent Sujet Suivant

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

Fermé
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019 - 4 nov. 2017 à 12:12
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019 - 25 avril 2018 à 18:54
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 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019
Modifié le 4 nov. 2017 à 13:41
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 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019
25 avril 2018 à 18:54
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