Problème VBA

Bonjour,

Je débute avec VBA et je ne trouve pas comment faire pour:

- dans la feuille active, me positionner sur le tableau croisé dynamique nomme "TCD1"

-récupérer dans une variable "maligne" le numéro de la première ligne du tableau

Merci

Bonjour,

Fais ton choix.

Public Sub FirstRowInPivottable()
Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables("TCD1")
    On Error Resume Next
    MsgBox pt.DataBodyRange.Cells(1).Row
    MsgBox pt.ColumnRange.Cells(1).Row
    MsgBox pt.TableRange1.Cells(1).Row
    MsgBox pt.PageRange.Cells(1).Row
End Sub

je viens de tester, ca va me permettre d'avancer

merci beaucoup pour ton aide