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
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
A voir également:
- Ouvrir un fichier Excel sur un segment, Slicer, du mois en cours
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier .bin - Guide
- Fichier rar - Guide
- Ouvrir un fichier .dat - Guide
2 réponses
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
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.
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.
ç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
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
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
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
