Bonjour,
J'ai un soucis avec un TCD que j'essaye de faire en macro
Lors de l'éxécution la ligne en gras est surligné, quelqu'un peut-il m'aider ?
Le code :
Sheets("Balance").Select
Range("A1").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Export!L1C1:L1570C19", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Balance!L1C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Balance").Select
Cells(1, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Client")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Numéro de client 1")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Echéance")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("RET +90jrs"), _
"Somme de RET +90jrs", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("RET 60 à 90 jrs"), _
"Somme de RET 60 à 90 jrs", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("RET 30 à 60 jrs"), _
"Somme de RET 30 à 60 jrs", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("RET 0 à 30 jrs"), _
"Somme de RET 0 à 30 jrs", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("ECH -30jrs"), _
"Somme de ECH -30jrs", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("ECH -60jrs"), _
"Somme de ECH -60jrs", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("ECH SUP 60jrs"), _
"Somme de ECH SUP 60jrs", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").TableStyle2 = _
"PivotStyleLight9"