Argument ou appel de procédure incorrect sur TCD

Version imprimable

Bonjour,

Je suis bloqué sur une macro de réation de TCD.
j'ai beau essayé de programmer en VBA par toute les méthodes que j'ai trouvé ou d'enregistrer la macro, lors que je lance la macro j'ai un message d'erreur:
"Argument ou appel de procédure incorrect."

voici le code:
je travaille dans le classeur: 'classeur1'
feuille source de données: 'données'
feuille du TCD: 'Tableau chef d'équipe'
le nombre de ligne du tableau source peut être variable
les colonnes sont fixes: de A à H
Code:

1 2 3 4 5 6 7 8 9 10 Sub chefequipe() Sheets("données").Activate ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "données!R1C1:R65536C8", Version:=xlPivotTableVersion10).CreatePivotTable _ TableDestination:="Tableau chef d'équipe!R1C1", TableName:= _ "chefEquipe", DefaultVersion:=xlPivotTableVersion10 Sheets("Tableau chef d'équipe").Select Cells(1, 1).Select
Je ne trouve nul part d'aide sur cette erreur. Pourriez vous m'éclairer sur mno erreur?

Merci à vous!

Bonjour

Fait un essai avec

A partir de l'enregistreur

Code:

1
2
3
4
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "données!C1:C8").CreatePivotTable TableDestination:= _
        "Tableau chef d'équipe!R1C1", TableName:="chefEquipe" _
        , DefaultVersion:=xlPivotTableVersion10

ou plus propre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Sub dd()
                            Dim TableauCroiséCache              As PivotCache
                            Dim TableauCroisé                   As PivotTable
 
    Set TableauCroiséCache = ActiveWorkbook.PivotCaches.Add _
                            (SourceType:=xlDatabase, _
                            SourceData:="données!C1:C8")
 
    Set TableauCroisé = TableauCroiséCache.CreatePivotTable _
                        (TableDestination:="'Tableau chef d'équipe'!R1C1", _
                        TableName:="chefEquipe")
 
' ensuite tu pilote tes champs
    With TableauCroisé
        .PivotFields("Service").Orientation = xlRowField
        .PivotFields("Service").Subtotals(1) = False
 
'ect
 
    End With
 
End Sub

bon courage

12/10/2011, 11h41
JudRos
bonjour,

Merci pour votre retour. j'ai essayé vos deux solutions et aucune d'elles ne fonctionne.
Il semble que ce soit le nom de la feuille de destination qui ne soit pas correct.
Lors ce que je note:
Code:

1 2 3 4 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "données!R1C1:R65536C8").CreatePivotTable _ TableDestination:="", TableName:= _ "chefEquipe"
la macro fonctionne, par contre elle créé une nouvelle feuille pour le TCD.
quelle serait la bonne syntaxe pour insérer le TCD toujours dans la même feuille?

Merci à vous.

Re bonjour

fait un essai avec

Code:

1
2
3
4
5
6
7
8
9
10
    Application.DisplayAlerts = False
    Sheets("Tableau chef équipe").Delete
    Worksheets.Add
    ActiveSheet.Name = "Tableau chef équipe"
    Application.DisplayAlerts = True
 
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "données!C1:C8").CreatePivotTable _
    TableDestination:="'Tableau chef équipe'!R3C1", TableName:= _
    "chefEquipe"

En renommant ta feuille Tableau chef équipe (suppression du ')

Tu dis

12/10/2011, 13h43
JudRos

Cette solution fonctionne effectivement.

Merci beaucoup pour votre aide!
12/12/2018, 15h14
Fredjo71

Citation:

Envoyé par Jean-Pierre49

Re bonjour

fait un essai avec
Tu dis

Je voulais juste dire merci et liker votre réponse ! Merci Jean-Pierre !! :)