Discussion :

[oui-oui15]

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

[AlainTech]

une erreur appairait

Et on doit, bien sûr, deviner laquelle...

[oui-oui15]

Bonjour,

Excuse moi j'ai oublié de préciser l'erreur.

ERREUR D’EXÉCUTION '91'
Variable objet ou variable de bloc With non définie

Le logiciel me met en surbrillance le code ci-dessous :

Code :

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

1
2
3
4
5
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

D'avance merci pour vos réponse