MAJ des items visibles d'un tableaux croisé dynamique en VBA

Bonjour,

Je dispose d'un tableau croisé dynamique dont les données proviennent d'une base OLAP.

Je souhaite automatiser le changement des lignes affichées dans mon tableaux.

Pour cela, j'utilise dans ma macro le code suivant:

    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "[Action- Date fin].[MOIS].[MOIS]").VisibleItemsList = Array( _
        "[Action- Date fin].[MOIS].&[201504]", _
        "[Action- Date fin].[MOIS].&[201505]", _
        "[Action- Date fin].[MOIS].&[201506]")

Ce code ci-dessus permet d'afficher les lignes pour les mois d'avril, mai et juin.

Le problème étant que si d'autres mois étaient visibles (exemple: janvier, février, mars), ceux ci disparaissent au profit des nouveaux.

Je cherche donc une fonction me permettant de mettre à jour la VisibleItemsList de mon Tableau Croisé Dynamique sans pour autant supprimer ceux qui étaient déjà affiché.

Merci d'avance pour votre aide.

bonjour

pourquoi ne pas simplement actualiser le TCD ?

Bonjour jmd,

Je dispose d'informations sur 36 mois dans mon tableau croisé dynamique, j'aimerais à terme, choisir un chiffre N entre 1 et 13, cliquer sur un bouton et afficher dans mon TCD les valeurs pour le mois actuel et les N derniers mois.

Il me semble que l'actualisation procéderai uniquement à la MAJ des données, je dispose déjà des données et je souhaite simplement décider d'afficher celle du mois actuel ET/OU celles de N mois précédents.

Merci pour votre aide

Rechercher des sujets similaires à "maj items visibles tableaux croise dynamique vba"