Boujour , je souhaiterais "attrapper" les sous-totaux du champ (rowfields) nommé "SITE" de mon tcd .
Pour cela lancer la macro "TCDautomatique"
Ensuite dans la procédure "ListAllItemObjects"
avec le morceau de code suivant j'arrive à choper chaques items 1 à 1
mais pas les sous-totaux de chaques items .
Ce que je veux récuper ce sont les adresses de "Total OISE OUEST"
"Total OISE EST" "Total FLANDRES ARTOIS" "Total SOMME"
et non pas "OISE OUEST" etc ...
"OISE EST" "FLANDRES ARTOIS" "SOMME"
Pour cela lancer la macro "TCDautomatique"
Ensuite dans la procédure "ListAllItemObjects"
avec le morceau de code suivant j'arrive à choper chaques items 1 à 1
mais pas les sous-totaux de chaques items .
Code:
For i = 1 To nbitem
MsgBox mafeuil.PivotTables("Tableau croisé dynamique3").RowFields(2).PivotItems(i)
Next
Ce que je veux récuper ce sont les adresses de "Total OISE OUEST"
"Total OISE EST" "Total FLANDRES ARTOIS" "Total SOMME"
et non pas "OISE OUEST" etc ...
"OISE EST" "FLANDRES ARTOIS" "SOMME"