Argument ou appel de procédure incorrect sur TCD [Résolu]

[JudRos]

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!

[Jean-Pierre49]

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

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

[Jean-Pierre49]

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

[JudRos]

Cette solution fonctionne effectivement.

Merci beaucoup pour votre aide!