2 tables pivot, Même PivotItems

Bonjour à tous,

Voici mon problème:

J'ai 2 tables pivot sur deux feuilles différentes, une "Détaillé" l'autre "Sommaire". J'aimerai pouvoir faire en sorte que le 2 tables pivot soient filtrés avec les même PivotItems.

J'ai essayé les 2 codes suivant, aucun bon résultat:

Code:

---

Sheets("Summary per Role").PivotTables("PivotTable1").PivotItems.Visible = Sheets("Utilization Per Employee").PivotTables("PivotTable1").PivotItems.Visible

---

Code:

---

1 2 3 4 5 6 7 8

Dim pi As PivotItem For Each pi In Sheets("Utilization Per Employee").PivotTables("PivotTable1").PivotFields("Description").PivotItems   If pi.Visible = False Then Sheets("Summary per Role").PivotTables("PivotTable1").PivotFields("Description").PivotItems.pi.Visible = False Else: Sheets("Summary per Role").PivotTables("PivotTable1").PivotFields("Description").PivotItems.pi.Visible = True End If Next pi

---

Merci de votre aide.

En changeant le code, j'obtiens maintenant l'erreur suivante :
Error:Unable to set the visible property of the PivotItem class.

Changements: PivotItems(pi) au lieu de PivotItems.pi

Code:

---

1 2 3 4 5 6 7 8

Dim pi As PivotItem For Each pi In Sheets("Utilization Per Employee").PivotTables("PivotTable1").PivotFields("Description").PivotItems   If Sheets("Utilization Per Employee").PivotTables("PivotTable1").PivotFields("Description").PivotItems(pi).Visible = False Then Sheets("Summary per Role").PivotTables("PivotTable1").PivotFields("Description").PivotItems(pi).Visible = False Else: Sheets("Summary per Role").PivotTables("PivotTable1").PivotFields("Description").PivotItems(pi).Visible = True End If Next pi

---