Bonjour,

J'aimerais automatiser la création de mon tableau croisés dynamique.

Sauf que mon code plante à l'initialisation de la source de donnée. Pouvez m'aider svp, je dois avoir une erreur de syntaxe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Worksheets("DATA").Range("A1:P" & DernLigne).Address(, , xlR1C1, True), Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Feuil1!R1C1", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion14