XL 2019 Mise à jour chronologie tcd ouverture fichier

lsabrie · 2 Mars 2021

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 · 2 Mars 2021

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

Hasco · 2 Mars 2021

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

C'est confirmé, je viens de tester.

Cordialement

lsabrie · 2 Mars 2021

Merciiiiii beaucoup ça marche du premier coup. Vous êtes génial

XL 2019 Mise à jour chronologie tcd ouverture fichier

lsabrie

Guest

Hasco

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

lsabrie

Guest

Discussions similaires