Discussion :

[aziz1015]

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

[parmi]

Bonjour,

Es-tu certain que le nom des feuilles et/ou des plages est correct ?

[aziz1015]

Bonjour,

Oui, je l'ai vérifié encore et encore. Je ne comprends pas pourquoi il y a une erreur dès la première ligne, d'autant plus que ce n'est pas la première fois que je procède de cette manière pour créer TCD. Je suis bloqué là depuis cet après-midi. Aurais je un moyen quelconque de savoir d'où provient l'erreur ?

Merci pour votre réponse