Bonjour à tous,

Je souhaite via une macro VBA exécuter un filtre sur un champ (sélection de la valeur "b") d'un tableau croisé dynamique (TCD).
Voici le code que j'applique:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub filtre_tcd_test()
 
 
    With ActiveSheet.PivotTables("tcd test").PivotFields("Colonne 1")
 
        .ClearAllFilters
        .CurrentPage = "(All)"
 
    End With
 
End Sub
J'obtiens l'erreur suivante:
Impossible de définir la propriété CurrentPage de la classe PivotField
Une idée sur la question?

Merci beaucoup :-)