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