Discussion :

[mumu64]

Bonjour,

J'ai écris ce code pour créer un tableau croisé dynamique dans une feuille bien précise à un endroit bien précis..... Mais voila ! IL MARCHE PAS !!

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
Dim DerCol As Integer, DerLig As Long, CelAdr As String
 
' Récupérer la dernière colonne remplie et la dernière ligne
DerCol = Sheets("mafeuille").Cells(1, Columns.Count).End(xlToLeft).Column
DerLig = Sheets("mafeuille").Range("A" & Rows.Count).End(xlUp).Row
CelAdr = Cells(DerLig, DerCol).Address
 
Sheets("mafeuille").Select
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"mafeuille!A1:" & CelAdr).CreatePivotTable TableDestination:=Sheets("autrefeuille").Range("A5"), TableName:="Tableau croisé dynamique1"
Sheets("autrefeuille").PivotTables("Tableau croisé dynamique1").SmallGrid = False
Sheets("autrefeuille").PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
"VEN_TRIMESTRE", ColumnFields:=Array("Classe", "LIEU_COD")
Sheets("autrefeuille").PivotTables("Tableau croisé dynamique1").PivotFields( _
"VEN_QTE_DEBARQUEE").Orientation = xlDataField
Application.CommandBars("PivotTable").Visible = False

la macro s'arrête à l'étape :

Code :

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

1
2
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"mafeuille!A1:" & CelAdr).CreatePivotTable TableDestination:=Sheets("autrefeuille").Range("A5"), TableName:="Tableau croisé dynamique1"

avec ce message d'erreur : Erreur d'execution '1004' Erreur définie par l'application ou par l'objet

Quelqu'un pourrait se pencher (sans tomber) sur l'écriture de ce code ?

D'avance merci !!

Mumu64

[ouskel'n'or]

Si tu as un espace entre xlDatab et ase, comme dans le code ci-dessus, ça peut venir de là (?!?)

[mumu64]

Salut ouskel'n'or,

Je viens de vérifier et il n'y a pas cet espace dans ma macro..... Il a du s'ajouter au moment du copier-coller.......

[ouskel'n'or]

Teste ça

Code :

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

1
2
3
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    Worksheets("MaFeuille").Range("A1:" & CelAdr).Address(, , xlR1C1, True)).CreatePivotTable _
    Sheets("autrefeuille").Range("A5"), TableName:="Tableau croisé dynamique1"

Sans filet, donc sans garantie.
(autrefeuille est bien le nom de la feuille, pas une variable, de même que "MaFeuille" ? )

[mumu64]

Merci ouskel'n'or pour cette solution sans filet qui marche bien !!!

J'avais également trouvé de mon côté.... Il faut noter :

Code :

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

TableDestination:="'autrefeuille'!R5C1"

Encore merci !!

Mumu