Discussion :

[Artiste70]

Bonjour,

A partir d'une suite de données, je souhaite créer un TCD

N'étant pas familier de VBA, j'ai dans un 1er temps enregistrer ma macro ==> Pas de difficultés

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
19
20
21
22
23
24
Sub Macro5()
'
' Macro5 Macro
'
 
'
    Range("H3:I11").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "<900€!R3C8:R11C9", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="<900€!R3C12", TableName:="Tableau croisé dynamique6", _
        DefaultVersion:=xlPivotTableVersion14
    Sheets("<900€").Select
    Cells(3, 12).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Date de paiement")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Liste des DP à contrôler")
        .Orientation = xlRowField
        .Position = 2
    End With
End Sub

J'ai ensuite essayé de l'appliquer et obtenu ce message d'erreur :

"Erreur d'exécution '5' : Argument ou appel de procédure incorrect."

Comment régulariser cela ?

D'avance merci.