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
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

Statistiques des forums

Discussions
303 820
Messages
2 014 419
Membres
219 922
dernier inscrit
Netposte