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.