Re : Macro de tableau croisé dynamique qui ne fonctionne plus...
Bon finalement j'ai tout recommencé avec l'aide de l'enregistreur de macro et ça fonctionne, je ne sais pas ce qui n'allait pas...
voici le nouveau code pour ceux que ça intéresse:
Sheets("Feuil1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R1000C15").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Semaine"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Grpe marc"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Donneur d'ordre").Subtotals = Array(False, False, False, False, False, False, False, _
False, False, False, False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _
Array("Grpe marc", "Donneur d'ordre"), ColumnFields:="Semaine"
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("RAP")
.Orientation = xlDataField
.Caption = "Somme de RAP"
.Function = xlSum
End With
End Sub
Merci quand même!
A bientot