Bonjour à tous voici mon problème je cherche à automatiser la création d'un TCD et je me mélange avec les propriétés du TCD, pourriez-vous m'aider.
Je vous remercie par avance pour votre aide.
Je vous remercie par avance pour votre aide.
Code:
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Feuil3!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Feuil4!R1C1", _
TableName:="Mon TCD"
With Feuil4.PivotTables("Mon TCD")
.PivotFields ("Nom")
.Orientation = xlPageField
.Position = 1
.PivotFields ("Date")
.Orientation = xlPageField
.Position = 1
.AddDataField ActiveSheet. _
PivotTables("Mon TCD").PivotFields("Effectifs"), _
"Moyenne de Effectifs", xlAverage, "0,00%"
.AddDataField ActiveSheet. _
PivotTables("Mon TCD").PivotFields( _
"CA"), "Somme de CA", xlAverage
End With
End Sub