Code VBA et Tableau Croisé Dynamique

Version imprimable

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:

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

31/10/2012, 08h53
AlainTech

Citation:

Envoyé par oui-oui15

une erreur appairait

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

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:

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