Discussion :

[TRESOALEX]

Bonjour à Tous,

voila j'essaye de réaliser un TCD à partir d'un tableau comprenant 5 colonnes au départ.
Cependant dans mon TCD je vais seulement faire remonter des informations de 2 Colonnes.

Cependant à l'ecriture de mon code j'ai un message d'erreur qui apparait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
   Range("A1:O500").Select
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "blotter!L1C1:L35C15", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="blotter!L1C17", TableName:="Tableau croisé dynamique10" _
        , DefaultVersion:=xlPivotTableVersion12
    Sheets("blotter").Select
    Cells(1, 17).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields( _
        "Customer")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique10").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique10").PivotFields("Spread PL USD"), _
        "Somme de Spread PL USD", xlSum
 
    ActiveWorkbook.Save

Cependant, j'ai un message d'erreur d'execution '5':
Argument ou appel de procédure incorrect

pourriez vous m'aider ?

merci

[QuestVba]

Bonjour

Essaie en remplaçant L par R (problème mélange français-anglais)

Code :

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

1
2
3
4
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "blotter!r1C1:r35C15", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="blotter!r1C17", TableName:="Tableau croisé dynamique10" _
        , DefaultVersion:=xlPivotTableVersion12

[TRESOALEX]

Merci bcp ça marche parfaitement

bonne journée