Discussion :

[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.

[Invité]

Bonjour,

Pour que l'on puisse vous répondre, il faudrait copier/coller votre code dans votre message.

[ryobanga]

Le voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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

Merci bien!

[ryobanga]

J'ai l'impression que c'est la création du cache qui foire, avec le paramètre SourceData qui ne ramène rien...

Pour info, j'ai essayé de lancer cette macro aussi sur Excel 2003 et j'ai le même message d'erreur.