Bonjour,

Je souhaite créer un Tableau Croisé Dynamique, avec du code VBA. J'ai utilisé l'outil enregistrer une Macro. Quand je veux lancer la macro une erreur appairait

Sur le code suivant :

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

    Range("A1").Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Base_De_Donnée_TCD!R1C1:R9127C21", Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
        "Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion14
    Sheets("Feuil1").Select
    Cells(3, 1).Select
    ActiveSheet.PivotTables("Tableau croisé dynamique5").ShowDrillIndicators = _
        False
    ActiveSheet.PivotTables("Tableau croisé dynamique5").RowAxisLayout xlTabularRow
    ActiveSheet.PivotTables("Tableau croisé dynamique5").TableStyle2 = _
        "PivotStyleLight8"
    With ActiveSheet.PivotTables("Tableau croisé dynamique5")
        .HasAutoFormat = False
        .DisplayErrorString = True
    End With
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "TCD"
    Range("A3").Select

End Sub
J'ai mis le code qui bug en surbrillance.

D'avance merci pour vos réponse.

Oui-oui