Macor Pivot Tabel ( Bestandsnaam automatisch aanpassen)

[rikik]

Hey Hey allen,

Ik tracht een macro te maken die een Pivot Tabel bevat.

Het probleem dat ik ondervind, is dat ik deze macro telkens toepas op bestanden met een andere bestandsnaam.
Hierdoor is mijn macro niet langer compatibel.

Is het mogelijk om mijn macro aan te passen, zodanig dat hij een Pivot Tabel maakt van gelijk welke bestandsnaam?

Hieronder zie je mijn huidige VBA code.

Ik denk toch dat dit mijn enige fout is.
Moest er nog iets verkeerd zijn, hoor ik het grag :d

SUPER bedankt alvats :thumb:



Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"CPRRGBSESORDSPRD109119767043700" , Version:= _
xlPivotTableVersion15).CreatePivotTable TableDestination:="Blad1 !R3C1",
TableName:="Draaitabel1", DefaultVersion:=xlPivotTableVersion15

Sheets("Blad1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Cours")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Draaitabel1").AddDataField ActiveSheet.PivotTables( _
"Draaitabel1").PivotFields("30/04/2017"), "Som van 30/04/2017", xlSum
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Cours")
.PivotItems("IS1000").Visible = False
End With

 

[rikik]

Niemand die hier een antwoord op heeft?

 

[Haije]

Rik,

post om te beginnen eens een excelbestand waar dit zich in afspeelt....

 

[snb]

En zet code tags rondom je VBA code in een bericht.
En vermijd 'select' en 'activate' in VBA.