Vous donne également le MDX du la vue affichée dans la table pivot !

Option Explicit
 
Sub SeePivotTable()
 
    Dim pt As PivotTable
 
    For Each pt In ActiveWorkbook.ActiveSheet.PivotTables
        If pt.PivotCache.OLAP Then
            Debug.Print vbCrLf
            Debug.Print "-----------------------------------------"
            Debug.Print "Pivot     : " & pt.Name
            Debug.Print "connexion : " & pt.PivotCache.Connection
            Debug.Print "cube      : " & pt.PivotCache.CommandText
            Debug.Print "MDX       : " & pt.MDX
            Debug.Print "-----------------------------------------"
            Debug.Print vbCrLf
        End If
    Next pt
 
End Sub