comment faire un tcd sur VBA?

bingopops

XLDnaute Nouveau
bonjour à tous,
je fais mes débuts sur VBA et j'ai besoin de faire un TCD. L'enregistrement de macro me donne ça, sauf que quand je le copie dans mes modules, il ne fonctionne pas, même si je sélectionne la feuille active (en l'occurence "travail2"). ça bloque dès la def du tcd...

Pouvez-vous m'aider?

P.S: l'erreur 1004 apparaît: "erreur définie par l'objet ou l'application"



Sub tcd1()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"travail2!C1:C28").CreatePivotTable TableDestination:="", TableName:="tcd expe", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("tcd expe").PivotFields("CGD")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("tcd expe").PivotFields("L2")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("tcd expe").PivotFields("PROJET")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("TCD expe").AddDataField ActiveSheet. _
PivotTables("TCD expe").PivotFields("VALO"), _
"somme de VALO", xlSum
End Sub
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
299 832
Messages
1 979 414
Membres
206 721
dernier inscrit
Sud catering