XL 2010 Filtrer un champ d'un TCD en macro VBA

Demha_2022

XLDnaute Nouveau
Bonjour,

Je suis débutant en VBA , j'ai une feuille dans laquelle j'ai construit un TCD en macro VBA.
La source de données de ce TCD est récupérée dans une deuxième feuille se trouvant dans un répertoire de fichier.

je souhaiterais faire le filtrage sur un champ nommé "Libelé du groupe Perf", la macro s'exécute sans aucun souci , mais quand je vais dans mon TCD je ne vois aucun filtrage sur le champ "Libelé du groupe Perf".

Voici le code:
VB:
  ' filtre champs Libellé du Groupe Perf
  ' le filtrage ne sélectionne pas les items spécifiés en objet

  With ActiveSheet.PivotTables("mon tableau croisé dynamique").PivotFields("Libellé du Groupe Perf")

        .PivotItems("Prev PP globale").Visible = True
        .PivotItems("Val Désirio").Visible = True
        .PivotItems("Val Epargne Vie").Visible = True
        .PivotItems("Val Gestion Préconisée").Visible = True
        .PivotItems("Val Ret ind.").Visible = True
        .PivotItems("Conquêtes Part multirisques").Visible = True
        .PivotItems("Conquetes Pro Agri").Visible = True
        .PivotItems("Conquetes Pro ACPS").Visible = True
        .PivotItems("PN IARD HT").Visible = True
        .PivotItems("Nb Auto").Visible = True
        .PivotItems("Nb GAV").Visible = True
        .PivotItems("Nb Habitation").Visible = True
        .PivotItems("Nb Santé ind.").Visible = True
        .PivotItems("Nb GBH").Visible = True

    End With
J'ai regardé sur plusieurs forums m'ais j'arrive pas à trouver la solution.
Quelqu'un pourrait svp m'aider à résoudre ce problème de filtrage?
 

Statistiques des forums

Discussions
312 938
Messages
2 093 775
Membres
105 818
dernier inscrit
daisyli67