Re : Tableau croisé dynamique avec une macro
Ce que j'ai fait, j'ai enregistré une macro, mais je n'arrive pas à la réutilisée.
Sub Macro2()
'
' Macro2 Macro
'
'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Fichier retraité!R4C1:R184C15", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Is ticket a Faible/MI?")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("Is ticket a Faible/MI?"), _
"Nombre de Is ticket a Faible/MI?", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Entity")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Resolve Month")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Resolve Month")
.Orientation = xlColumnField
.Position = 1
End With
End Sub
Au débegage, j'ai une erreur au niveau de l'instruction 2 "" Argument ou appel de
procédure incorrcet"."
Merci encore une fois