Argument ou appel de procédure incorrect sur TCD

**JudRos** · 12/10/2011, 09h36

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

**Jean-Pierre49** · 12/10/2011, 10h50

Bonjour

Fait un essai avec

A partir de l'enregistreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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

**JudRos** · 12/10/2011, 11h41

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Jean-Pierre49** · 12/10/2011, 12h09

Re bonjour

fait un essai avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"