Discussion :

[guismoman60]

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

[Pierre Fauconnier]

Salut.

Tu as oublié de mentionner le nom de la feuille source.

Code :

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

1
2
SourceData:= _
        "Data!" & Worksheets("DATA").Range("A1:P" & DernLigne).Address(, , xlR1C1, True)

Cela dit, il est rarement utile de créer un tcd en vba. Il est souvent plus judicieux de travailler sur un classeur modèle qui inclut déjà le(s) tableau(x) conçus dans l'environnement Excel.

De plus, tu ne dis pas ta version, mais normalement, on travaille depuis 2010 (voire 2007) de préférence avec des tableaux structurés comme source de TCD, car la mise en place et la conception du classeur sont bien plus simples, et on se contente d'apporter les données dans le tableau structuré source par macro.