Filtre de rapport d'un tcd

Bonjour à tous,

Je n'arrives pas à trouver l'équivalent en vba qui permet d'ajouter un champ en filtre de rapport.

Quelqu'un a t'il la solution ?

Merci d'avance pour vos réponses.

Bonjour Razor,

As-tu essayé d'utiliser l'enregistreur de macro et de faire la manip souhaitée !?

A+

Oui j'ai essayé l'enregistreur de macro mais le soucis c'est que je ne connais pas la syntaxe exacte afin de rajouter un filtre.

J'ai essayé à plusieurs reprise avec .PivotFilters.Add mais sans réussite.

C'est bon j'ai trouvé la solution :

With Sheets("tcd").PivotTables("Mon TCD")
        'Ajout de age.depart en etiquette de ligne et loc en etiquette de colonne
        .AddFields RowFields:="age.depart", ColumnFields:="loc", RowFields:="mod"
        'Ajout de globale en valeurs
        .PivotFields("globale").Orientation = xlDataField
        'Filtre du rapport
        .PivotFields("mod").Orientation = xlPageField
        'Globale en moyenne
        .PivotFields("Somme de globale").Function = xlAverage
End With