Bonjour à tous,
J'ai enregistré la macro avec l'enregistreur de macro afin de pouvoir automatiser la création de tableau croisé dynamique. Mais dès lors que je relance la macro enregistrée précédemment, celle-ci échoue et me propose le débogage. Bien que j'ai essayé différentes choses pour me débloquer, je vous avoue ne pas arriver à trouver la solution et rendre cette dernière utilisable.
Quelqu'un peut il m'aider SVP??
Cordialement
Voici mon code:
Sub Macro1()
'
' Macro1 Macro
'
Range("A1").Select
Selection.CurrentRegion.Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil5!L1C1:L93C4", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil1!L3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Référence")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Qté"), "Nombre de Qté", _
xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nombre de Qté")
.Caption = "Somme de Qté"
.Function = xlSum
End With
End Sub
J'ai enregistré la macro avec l'enregistreur de macro afin de pouvoir automatiser la création de tableau croisé dynamique. Mais dès lors que je relance la macro enregistrée précédemment, celle-ci échoue et me propose le débogage. Bien que j'ai essayé différentes choses pour me débloquer, je vous avoue ne pas arriver à trouver la solution et rendre cette dernière utilisable.
Quelqu'un peut il m'aider SVP??
Cordialement
Voici mon code:
Sub Macro1()
'
' Macro1 Macro
'
Range("A1").Select
Selection.CurrentRegion.Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil5!L1C1:L93C4", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil1!L3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Référence")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Qté"), "Nombre de Qté", _
xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nombre de Qté")
.Caption = "Somme de Qté"
.Function = xlSum
End With
End Sub