Bonjour,

Ne connaissant rien sur les TCD en VBA, je me sers de l'enregistreur de macros pour essayer d'en créer un mais pour des raisons que j'ignore, j'ai un gros bug à chaque fois :

ARGUMENT OU APPEL DE PROCEDURE INCORRECT

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Sub Macroqsdqqsdsq()
'
 
 
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Demande MEP!R1C1:R1399C46", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="DD - stock!R3C1", TableName:= _
        "TCD_StockDD", DefaultVersion:=xlPivotTableVersion12
    Sheets("DD - stock").Select
    Cells(3, 1).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'DD - stock'!$A$3:$C$20")
    ActiveWorkbook.ShowPivotChartActiveFields = True
    ActiveChart.ChartType = xlPie
    ActiveSheet.PivotTables("TCD_StockDD").AddDataField ActiveSheet. _
        PivotTables("TCD_StockDD").PivotFields("n° Demande"), _
        "Nombre de n° Demande", xlCount
 
    With ActiveSheet.PivotTables("TCD_StockDD").PivotFields( _
        "Segment client")
        .Orientation = xlPageField
        .Position = 1
    End With
 
    With ActiveSheet.PivotTables("TCD_StockDD").PivotFields("Stock")
        .Orientation = xlRowField
        .Position = 1
    End With
 
    ActiveChart.ApplyDataLabels
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.ShowPercentage = True
 
 
End Sub

J'ai affecté cette macro à un bouton se trouvant dans la feuille qui doit contenir le TCD. L'erreur survient dès la première ligne de code. Pourrais je avoir de l'aide svp ?

Merci pour votre aide