Changing PivotTable source

[atakacs]

Folks

I'd like to programmatically change the source data of an existing
PivotTable...

Tried


Code:
--------------------
Activesheet.PivotTables("PivotTable1").SourceData = "PivotTable_Data"
--------------------


Where "PivotTable1" is an existing pivot table and "PivotTable_Data" a
valid named range... but this doesn't work...

Any suggestion ?

Regards

--alex

 

[Tom Ogilvy]

Why not set the source to a named range originally, then redefine the
definition of the named range.

 

[Ngalula Kachika Michel]

Try this:

Private Sub Worksheet_Activate()
Worksheets("Base").Range("cellule").CurrentRegion.Name
= "cellule"
ActiveSheet.PivotTableWizard SourceType:=xlDatabase,
SourceData:="cellule"
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

 

[Dave Peterson]

I don't use PPT, but you may find some sample code here at Jon Peltier's site:

http://www.geocities.com/jonpeltier/Excel/XL_PPT.html