Sub Création_TCD()
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "TCD" & Format(Sheets.Count - 1, "00")
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tablo", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:=ActiveSheet.Cells(4, 2), TableName:="TCD", _
DefaultVersion:=xlPivotTableVersion15
With ActiveSheet.PivotTables("TCD").PivotFields("Nom")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("TCD").CompactLayoutRowHeader = "Noms"
With ActiveSheet.PivotTables("TCD").PivotFields("Ville")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet. _
PivotTables("TCD").PivotFields("Prix A"), _
"Somme de Prix A", xlSum
With ActiveSheet.PivotTables("TCD").PivotFields( _
"Somme de Prix A")
.Caption = " Prix A"
.NumberFormat = "# ##0,00"
End With
ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet. _
PivotTables("TCD").PivotFields("Prix B"), _
"Somme de Prix B", xlSum
With ActiveSheet.PivotTables("TCD").PivotFields( _
"Somme de Prix B")
.Caption = " Prix B"
.NumberFormat = "# ##0,00"
End With
ActiveSheet.PivotTables("TCD").CalculatedFields.Add _
"Prix C", "='Prix A' +'Prix B'", True
ActiveSheet.PivotTables("TCD").PivotFields("Prix C"). _
Orientation = xlDataField
ActiveSheet.PivotTables("TCD").PivotFields( _
"Somme de Prix C").Caption = " Prix C"
End Sub