Discussion :

[Paul1311895]

Bonjour,
Je suis actuellement en stage et j'aimerais mettre en place un tableau croisé dynamique automatiquement via une macro. Ne trouvant pas comment faire j'ai fait un enregistrement de macro mais dans le résultat une erreur s'affiche.
Voici le code et l'erreur:

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
Sub TCD()
'
' TCD Macro
'

'
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "base_donnée!R1C1:R51C6").CreatePivotTable _
        TableDestination:="Feuil5!R3C1", TableName:="Tableau croisé dynamique3", _
        DefaultVersion:=xlPivotTableVersion10   
 Sheets("Feuil5").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("DGA")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "Regroupement")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique3").PivotFields( _
        "SommeDeSommeDeTotal_de_jour_decompte"), _
        "Somme de SommeDeSommeDeTotal_de_jour_decompte", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique3").PivotFields( _
        "SommeDeCompteDeNom_absence"), "Somme de SommeDeCompteDeNom_absence", xlSum
End Sub

Erreur d'execution '5':
Argument ou rappel de procédure incorrect

Voila merci d'avance
Coordialement
Paul

[helas]

Bonjour,
Je pense que l'erreur provient du nom de la feuille Feuil5
Lorsque la feuille est créée, il faut mieux récupérer son nom pour l'inclure dans le code

Code :

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

1
2
3
4
5
6
7
8
Sheets.Add after:=Sheets(Sheets.Count)  'créer la feuille à droite
Sheets(Sheets.Count).Name = "Dernier"     'lui donner un nom

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"base_donnée!R1C1:R51C6").CreatePivotTable _
TableDestination:="Dernier!R3C1", TableName:="Tableau croisé dynamique3", _
DefaultVersion:=xlPivotTableVersion10

[helas]

ou d'une façon dynamique

Code :

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

1
2
3
4
5
6
7
8
Sheets.Add after:=Sheets(Sheets.Count)
nom = Sheets(Sheets.Count).Name

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"base_donnée!R1C1:R51C6").CreatePivotTable _
TableDestination:=nom & "!R3C1", TableName:="Tableau croisé dynamique3", _
DefaultVersion:=xlPivotTableVersion10

[Invité]

Bonjour,
Regarde ça:http://www.developpez.net/forums/d1459212/logiciels/microsoft-office/excel/macros-vba-excel/creation-d-tcd-macros/#post7904864

[Paul1311895]

Bonjour pour le coup c'était bien le nom de la feuille qui faisait que ça ne marchait pas.
Merci beaucoup à vous deux pour vos réponse^^
Cordialement Paul