XL 2019 Mise à jour chronologie tcd ouverture fichier

L

lsabrie

Guest
Bonjour,

J'ai un tcd avec lequel j'utilise une chronologie. CE tcd comporte 4 années. Je voudrais à l'ouverture du fichier que cette chronologie soit comprise entre le mois en cours et n-12. Comme cela à chaque ouverture du fichier les personnes ont la vision des 12 derniers mois glissants et peuvent ensuite faire joue joue avec la chronologie.
En gros mon code vba ressemble à ça

VB:
ActiveWorkbook.SlicerCaches("ChronologieNative_DATE_CREATION").TimelineState. _
        SetFilterDateRange "01/03/2020", "31/03/2021"

mais au lieu des dates ile me faudrait du m-12 à mois en cours.

Merci de votre aide ou tout autres suggestions :)
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Non testée puisque sans fichier exemple :
VB:
Dim Debut As Date, Fin As Date

' Fin du mois en cours (Veille du premier du mois suivant)
Fin = DateSerial(Year(Date), Month(Date) + 1, 0)

' 1 an auparavant
Debut = DateSerial(Year(Fin) - 1, Month(Fin), 1)

ActiveWorkbook.SlicerCaches("ChronologieNative_DATE_CREATION").TimelineState. _
        SetFilterDateRange Format(Debut, "dd/mm/yyyy"), Format(Fin, "dd/mm/yyyy")

Peut-être que 'Format' n'est pas nécessaire et que
SetFilterDateRange Debut , Fin
irait tout aussi bien puisque 'SetFilterDateRange' attend des variants.


Cordialement
 

Discussions similaires

Réponses
1
Affichages
2 K
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec