Bonjour,

Je souhaite manipuler des tableaux croisés dynamiques par macro.
Mon problème est:
Après actualisation d'un TCD, de nouvelles données peuvent apparaître.
Je veux donc que la macro aille dans le filtre des étiquettes de ligne et coche "(Sélectionner tout)" pour être sûr que les nouvelles données s'affichent bien.

En utilisant l'enregistreur de macro, celui-ci me fournit un code du type:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
PivotTables("OW1").PivotFields("ATA/SUB-ATA").PivotItem("A").Visible = True
PivotTables("OW1").PivotFields("ATA/SUB-ATA").PivotItems("B").Visible = True
PivotTables("OW1").PivotFields("ATA/SUB-ATA").PivotItems("C").Visible = True
etc en sélectionnant tous les items.
Or, ce code ne me convient pas. Car je ne peux pas sélectionner tous les items 1 par 1, puisque après la mise à jour du TCD, je ne saurais pas quel sera le nouvel item (cela peut être D, F, G).
Il faut bien que je puisse faire "sélectionner tout".

J'ai essayé avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
PivotTables("OW1").PivotFields("ATA/SUB-ATA").PivotItems("(Sélectionner tout)").Visible = True
PivotTables("OW1").PivotFields("ATA/SUB-ATA").PivotItems("(Select all)").Visible = True
PivotTables("OW1").PivotFields("ATA/SUB-ATA").Visible = True
Mais aucun ne marche.
je vous remercie pour l'éclairage que vous pourriez m'apporter,

Cordialement.