Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Mise à jour chronologie tcd ouverture fichier

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 🙂
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…