Probleme macro Tableau croisé

biarritz · 11 Juillet 2008

Bonjour
J'ai demandé a Excel de me faire un tableau croisé dynamique via une macro
Au moment, ou je la lance voir ce qu'il me met en PJ
Je l'ai refait à plusieurs reprises et impossible d'y arriver
Premiere question: est il possible de demander a Excel de faire un Tableau Croisé Dynamique via une macro
Si oui, quelqu'un sait il ou est mon erreur
Merci d'avance
N'hesitez pas a m'ecrire si pb

Cousinhub · 11 Juillet 2008

Re : Probleme macro Tableau croisé

Bonjour,

Bon, un fichier Word pour réparer un code, c'est pas ce qu'on fait de mieux...

Dans ton code, que j'avais commencé à abréger, mais ne sachant ce que tu désirais comme produit final, j'ai abandonné, tu sélectionnes une feuille :

Code:

Sheets("Planning Fournier").Select

et tu créés un TCD dans la feuille :

Code:

TableDestination:= _
        "'[Planning Fournier.xls]TCD Fournier'!R1:R65536"

donc dans la feuille "TCD Fournier"
Ensuite, tu demandes de rajouter un champ dans :

Code:

ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields

Or, ta feuille active, c'est "Planning Fournier", donc, il n'y a pas de TCD, dans cette feuille

un début de correction, qui peut servir de base de travail :

Code:

With Sheets("TCD Fournier")
    .Columns("A:D").Delete Shift:=xlToLeft
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Planning Fournier'!R1C1:R400C6").CreatePivotTable TableDestination:= _
        .[A1], TableName:= _
        "Tableau croisé dynamique14", DefaultVersion:=xlPivotTableVersion10
     With .PivotTables("Tableau croisé dynamique14").PivotFields( _
        "Commande")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub

Probleme macro Tableau croisé

biarritz

XLDnaute Nouveau

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Discussions similaires