Bonjour à tous,
je débute avec les macros, du coup je m'aide de temps en temps de l'enregistreur de macros pour réaliser certaines tâches.
Je parviens à créer ma macro de création de TCD avec l'enregistreur, mais lors de son exécution, j'ai systématiquement l'erreur suivante:
"Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet"
Le débogueur indique qu'il y a erreur sur la ligne de création du PivotCache. Mais je ne vois pas où.
Ma recherche sur le net s'est jusqu'à présent avérée infructueuse.
Merci d'avance pour vos conseils.
Le code de la macro:
je débute avec les macros, du coup je m'aide de temps en temps de l'enregistreur de macros pour réaliser certaines tâches.
Je parviens à créer ma macro de création de TCD avec l'enregistreur, mais lors de son exécution, j'ai systématiquement l'erreur suivante:
"Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet"
Le débogueur indique qu'il y a erreur sur la ligne de création du PivotCache. Mais je ne vois pas où.
Ma recherche sur le net s'est jusqu'à présent avérée infructueuse.
Merci d'avance pour vos conseils.
Le code de la macro:
Code:
Sub Macro9()
'
' Macro9 Macro
'
'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Tableau1", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil3!R3C1", TableName:="Tableau croisé dynamique6", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil3").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Vendeur" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Produit" _
)
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique6").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique6").PivotFields("Chiffre d'affaires"), _
"Somme de Chiffre d'affaires", xlSum
End Sub