Erreur d'execution 1004 - [Résolu]

Signaler
Messages postés
5
Date d'inscription
mardi 9 juin 2020
Statut
Membre
Dernière intervention
9 juin 2020
-
Messages postés
12273
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 septembre 2020
-
Bonjour,
Je souhaiterai insérer un tableau croisé dynamique par macro dans un fichier.
J'ai créé cette macro en l'enregistrant (je ne suis pas un pro du VBA!)
L'erreur se produit pratiquement à la fin! (j'ai encadré la "position" de l'erreur par erreur d'éxécution 1004)

Je vous remercie par avance
Voici le programme :
TCD Macro
'

'
    Range("M1").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R1048576C9", Version:=6).CreatePivotTable TableDestination:= _
        "Feuil1!R1C13", TableName:="Tableau croisé dynamique2", DefaultVersion:=6
    Sheets("Feuil1").Select
    Cells(1, 13).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Année")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Nom")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Nombre" & Chr(10) & "Jouet" & Chr(10) & "Manquant")
        .Orientation = xlRowField
        .Position = 3
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Nombre" & Chr(10) & "BPZ" & Chr(10) & "Manquant")
        .Orientation = xlRowField
        .Position = 4
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Année")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Nom")
        .Orientation = xlPageField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("Nombre" & Chr(10) & "BPZ" & Chr(10) & "Manquant"), _
        "Nombre de Nombre" & Chr(10) & "BPZ" & Chr(10) & "Manquant", xlCount
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("Année"), _
        "Nombre de Année", xlCount
 'erreur d'execution 1004
  With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Nombre de Nombre" & Chr(10) & "BPZ" & Chr(10) & "Manquant")
        .Orientation = xlPageField
        .Position = 1
'erreur d'execution 1004
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Nom")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
        "Nombre" & Chr(10) & "Jouet" & Chr(10) & "Manquant")
        .Orientation = xlPageField
        .Position = 1
    End With
    ActiveWindow.SmallScroll ToRight:=2
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

4 réponses

Messages postés
12273
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 septembre 2020
694
bonjour, peux-tu partager ton fichier?
Messages postés
5
Date d'inscription
mardi 9 juin 2020
Statut
Membre
Dernière intervention
9 juin 2020

Merci pour ta demande! mais comment fait-on?
Messages postés
12273
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 septembre 2020
694
tu publies ton fichier sur internet (google drive, cjoint.com, ...), et tu en partages le lien ici.
Messages postés
5
Date d'inscription
mardi 9 juin 2020
Statut
Membre
Dernière intervention
9 juin 2020

Merci voici le lien
La macro s'appelle TCD (pas très original mais bon!)
https://drive.google.com/file/d/1IYGnXaq93HbPuZgJzaaiRq_oPW1_vbNC/view?usp=sharing
Messages postés
12273
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 septembre 2020
694
le fichier n'est pas public.
Messages postés
5
Date d'inscription
mardi 9 juin 2020
Statut
Membre
Dernière intervention
9 juin 2020

Messages postés
12273
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 septembre 2020
694
décidément, Excel n'apprécie pas ce que tu fais avec "Nombre de Nombre" (l'ajouter comme filtre de page).
Messages postés
5
Date d'inscription
mardi 9 juin 2020
Statut
Membre
Dernière intervention
9 juin 2020
>
Messages postés
12273
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 septembre 2020

Oui effectivement!
Merci pour l'aide! j'ai recommencé la macro et cela fonctionne
Messages postés
12273
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 septembre 2020
694 >
Messages postés
5
Date d'inscription
mardi 9 juin 2020
Statut
Membre
Dernière intervention
9 juin 2020

parfait, peux-tu marquer la discussion comme résolue?