Création d'un TCD sous VBA

1 pièce(s) jointe(s)

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:

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.

Bonjour

Le nom de ta feuille "<900€" pose un soucis, en la renommant en "INF900" le TCD se crée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Macro5()
    Dim NOM_FEUILLE_SOURCE As String
    Dim NOM_TCD As String
    Dim nbLg As Long
    NOM_FEUILLE_SOURCE = "INF900"
    NOM_TCD = "TCD_Inf900"
 
    With ThisWorkbook.Sheets(NOM_FEUILLE_SOURCE)
        nbLg = .Cells(3, 8).End(xlDown).Row
        .Range(.Cells(1, 12), .Cells(1, 15)).EntireColumn.Clear
    End With
 
    ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:=NOM_FEUILLE_SOURCE & "!R3C8:R" & nbLg & "C10").CreatePivotTable _
       TableDestination:=NOM_FEUILLE_SOURCE & "!R3C12", TableName:=NOM_TCD
 
    With ActiveSheet.PivotTables(NOM_TCD)
 
        .PivotFields("Date de paiement").Orientation = xlRowField
        .PivotFields("Date de paiement").Position = 1
        '---
        .PivotFields("Liste des DP à contrôler").Orientation = xlRowField
        .PivotFields("Liste des DP à contrôler").Position = 2
        '---
        .AddDataField .PivotFields("Montant"), "Somme de Montant", xlSum
    End With
 
 
End Sub

Merci Sogedic