macro tab croisé dyn

[hornchen]

Bonjour,

je suis nouveau sur ce forum. Je découvre les macros car j'essaie d'automatiser des tris de tableau et la création de tableaux croisés dynamiques. Je procède avec l'enregistrement pas à pas (je ne connais pas le code VBA). Le tri fonctionne mais pas le tableau croisé dynamique.
Le message suivant est renvoyé:"Erreur d'exécution '1004'" "la méthode AddFields de la classe PivotTable a échoué".
Quelqu'un connaît-il ce problème?
Merci!

 

[Artizar]

Re : macro tab croisé dyn

Bonjour,
j'ai eu un problème aussi en créant des TCD par apprentissage de macro.

la méthode que j'utilise maintenant est la création du TCD comme suit :

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'source'!R2C1:R65536C16").CreatePivotTable TableDestination:="" _
        , TableName:="TCD cree"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("TCD cree").SmallGrid = False
    Range("A3").Select
    With ActiveSheet.PivotTables("TCD cree").PivotFields( _
        "donnee1")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("TCD cree").PivotFields( _
        "donnee2")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("TCD cree").PivotFields("donnee3")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("TCD cree").PivotFields("donnee4")
        .Orientation = xlDataField
        .Position = 1
    End With

depuis plus de pb sous Excel2000 comme 2003.

Have a nice day