Modification des critères de tableau croisé dynamique Excel par programme

Question

J'ai un modèle de feuille de calcul Excel, qui contient des tableaux pivotants dont les critères spécifient le contenu de la feuille de calcul.

J'ai besoin de modifier ces critères par programmation à partir d'une macro exécutée dans une feuille de calcul séparée de sorte que le modèle aura un contenu différent.

Quel codage conviendrait-il de réaliser?

Answer 1

Le code ci-dessous met à jour le filtre de rapport sur un tableau croisé dynamique dans un classeur distinct.

Dans cet exemple, le filtre de rapport est appelé « Lieu » et sa valeur est remplacée par « Ouest »

Le code suppose que le classeur distinct est déjà ouvert.

Sub UpdatePivotFilter() 

Workbooks("Book1.xls").Sheets("Sheet1").PivotTables("PivotTable1"). _ 
PivotFields("Location").CurrentPage = "West" 

End Sub