VBA - Excel - Créer tableau croisé dynamique Résolu/Fermé

Question

Bonjour,   

c'est encore le débutant !!   

j'ai besoin de créer un TCD par macro, et comme je ne connais pas le code correspondant, j'ai fait simple : j'ai enregistré la création du tableau avec l'enregistreur de macro, et là, ô surprise ?!  

si j'exécute la macro enregistrée sans même la modifier, je me prends un message d'erreur :  

voici le code enregistré :  
Range("A1").Select  
Range(Selection, Selection.End(xlToRight)).Select  
Range(Selection, Selection.End(xlDown)).Select  
Sheets.Add  
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _  
    "DC_DetFact!R1C1:R309008C3", Version:=xlPivotTableVersion14). _  
    CreatePivotTable TableDestination:="Feuil11!R3C1", TableName:= _  
    "Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion14  
Sheets("Feuil11").Select  
Cells(3, 1).Select  
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("NART")  
    .Orientation = xlRowField  
    .Position = 1  
End With  
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _  
    PivotTables("Tableau croisé dynamique4").PivotFields("QTE"), "Somme de QTE", _  
    xlSum  
End Sub
et le message d'erreur que ça me renvoi :  
"Erreur '5' -> Argument ou appel de procédure incorrect"  
en gras la zone repérée par le débogueur. avec la flèche sur la dernière ligne du paragraphe

Une idée ?  
Merci !

pilas31 · Answer

Bonsoir, 

C'est trés curieux car sur mon Excel ce n'est pas du tout la syntaxe, la methode de création est Add et  xlPivotTableVersion14 donne une erreur.  

La syntaxe qui fonctionne est la suivante : 

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ 
    "DC_DetFact!R1C1:R309008C3").CreatePivotTable TableDestination:="Feuil11!R3C1", TableName:= _ 
    "Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10 

A+ 

Cordialement,

VBA - Excel - Créer tableau croisé dynamique

1 réponse

Discussions similaires