Erreur 1004 lors de la création de TCD avec l'enregistreur de macro

[ryobanga]

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:

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

 

[MJ13]

Re : Erreur 1004 lors de la création de TCD avec l'enregistreur de macro

Bonjour Ryobanga

Fichier à tester.