VBA - TCD - CurrentPage

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:

---

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:

Citation:

---

Impossible de définir la propriété CurrentPage de la classe PivotField

---

Une idée sur la question?

Merci beaucoup :-)

Désolé une petite erreur c'était glissée dans mon précédent message.
Voici le code exacte que j'ai tapé:

Code:

---

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 = "b"   End With   End Sub

---

Bonjour,

As tu essayé d'obtenir le code par l'enregistreur de macro?

Bonjour

Currentpage est réservé aux filtres des champs de page( ou zone de filtre selon le nouvelle appellation) mono sélection.