Workbooks.Open dFic
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Somme de Cmtbpm" & Month - 1).Orientation = xlHidden
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Cmtbpm" & Month), "Nombre de Cmtbpm" & Month, xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nombre de Cmtbpm" & Month)
.Caption = "Somme de Cmtbpm" & Month
.Function = xlSum
.NumberFormat = "# ##0,00 €"
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Somme de Cmtelmm" & Month - 1).Orientation = xlHidden
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Cmtelmm" & Month), "Nombre de Cmtelmm" & Month, xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nombre de Cmtelmm" & Month)
.Caption = "Somme de Cmtelmm" & Month
.Function = xlSum
.NumberFormat = "# ##0,00 €"
End With