newbie vba pivottable [Résolu]

[maxtin]

Bonjour,

ce que je veux faire est tres simple, mais je ny arrive pas

jai un pivottable dans ma page courant et je veux le selectionner...

au lieu de "hardcoder" le select comme ceci:

Code :

Range("premierecasedupivot").Select

jaimerais que le select se reference au pivottable automatiquement

jessaie ceci :

Code :

xlApp.ActiveSheet.Tables(0).Range.Select

mais sans succes

jaimerais aussi savoir comment on recupere la coordonnee retournee lors de cete reference dynamique

merci a lavance

[dadavyvy]

Tu peux choisir dans la liste :

Code :

1
2
3
4
5
6
7
8
Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables(1)
pt.DataBodyRange.Select
pt.DataLabelRange.Select
pt.PageRange.Select
pt.PageRangeCells.Select
pt.TableRange1.Select
pt.TableRange2.Select