Changing PivotTable source

  • Thread starter Thread starter atakacs
  • Start date Start date
A

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
 
Why not set the source to a named range originally, then redefine the
definition of the named range.
 
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
 
Back
Top