create offline .cub file in vba

[Stampe]

Hi

I have a solution where I use a SSAS olap cube as data source with a pivot table as front-end, some users need to have a offline .cub file, and I can create this file manually with out issues, but I can't figure out how to create a function wich will do the same.

I'm using this code :

Sub UseCreateCubeFile()
ActiveSheet.PivotTables("Pivottabel1").CreateCubeFile _
File:="C:\Data\CustomCubeFile.cub", Properties:=False
End Sub

But I keep geting an error (1004) telling me that object is not defined, I've tried to create a Pivot table object but still no luck

I can't find much documentation regarding this, has anyone succeded with this ?

br

Peter