bonjour Didier
peux tu préciser quelles informations tu souhaites extraire
ci dessous quelques exemples :
récupérer les éléments d'un champ
Dim Pvt As PivotItem
For Each Pvt In ActiveSheet.PivotTables(1).PivotFields('Client').P ivotItems
Debug.Print Pvt.Caption
Next
récupérer Les données du rapport
Dim Cell As Range
For Each Cell In ActiveSheet.PivotTables(1).DataBodyRange
Debug.Print Cell
Next Cell
bon apres midi
MichelXld