Re : Problème avec un tableau croisé dynamique sous vba
j'ai essayé de construire mon tableau d'une autre manière et la j'obtiens l'erreur d'éxécution 1004 , qui vient de la derniere ligne
Sub TCD()
Dim mois As Variant
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Synt_charge!R1C1:R63C20").CreatePivotTable TableDestination:="", TableName _
:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"PQA Engineer")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Project Type")
.Orientation = xlColumnField
.Position = 1
End With
For i = 3 To 20
mois = Worksheets("Synt_charge").Cells(1, i).Value
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields(mois), _
"charge", xlSum
Next i
End Sub