Bonjour,
Une petite question pour automatiser un tdc par une macro. Ca bug :
Sub tcd()
'
' tcd Macro
'
'
Cells.Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"POINT adm!R1C1:R1048576C22", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Feuil2!R3C1", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion14
Sheets("Feuil2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"ASSISTANTE")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("DC")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("ID_COMMANDE"), _
"Nombre de ID_COMMANDE", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"STATUT_ESPACE")
.Orientation = xlColumnField
.Position = 1
End With
End Sub
Merci pour votre aide.
Cordialement,