Salve a tutti!
Sto cercando da una query di access di creare una tabella pivot con questo codice:

Set ws = wb.Worksheets(NomeQuery)
'cerco ultima riga e ultima colonna
r = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
c = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

'imposto il range
Set rngDati = ws.Range(ws.Cells(r, c), ws.Cells(1, 1)) '"iltuorange"
Set pc1 = wb.PivotCaches.Create(xlDatabase, rngDati)

Set pt1 = pc1.CreatePivotTable(wb.Sheets("Tabella_Pivot").Range("A1"))


'aggiungo qui i campi riga e colonnA
[]
' Aggiungo i campi 'valore

With pt1
.AddDataField .PivotFields("SommaDiTariffa"), "Tariffa", xlSum
.AddDataField .PivotFields("SommaDiFinanziamenti"), "Finanziamento", xlSum
.AddDataField .PivotFields("Totale"), "Totale", xlSum
End With

sulla penultima riga (quella prima di end with) mi da errore : "Errore definita dall'applicazione o dall'oggetto"
E' identica alle due precedenti!!!!

Perché sulle prime due non me la da e sull'ultima si? E soprattutto come risolvo?!?!?!