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