rebonjour Didier , bonjour cher Dan
Citation:
|
En fait, je ne souhaite pas imprimer le résultat.
|
Debug.Print permet juste de visualiser le résultat dans la fenetre d'execution de l'editeur de macros
tu peux réessayer avec des MsgBox :
récupérer les éléments d'un champ
Dim Pvt As PivotItem
For Each Pvt In ActiveSheet.PivotTables(1).PivotFields('Client').P ivotItems
MsgBox Pvt.Caption
Next
récupérer Les données du rapport
Dim Cell As Range
For Each Cell In ActiveSheet.PivotTables(1).DataBodyRange
MsgBox Cell
Next Cell
bonne soirée
MichelXld