préciser feuille pour tableau croisé

J

joss56

XLDnaute Accro

• 30 Juillet 2008

• #2

Re : préciser feuille pour tableau croisé

Salut Mumu, le forum,

Fais une macro et regarde le code généré.
A+
Bonne journée

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 30 Juillet 2008

• #3

Re : préciser feuille pour tableau croisé

Salut Joss56,

Justement la plupart du code est issu d'un 'enregistrement de macro' et quand j'exécute la macro, il me mets le tableau croisé dans la feuille du tableau de données.....

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"mafeuille!A1:" & CelAdr).CreatePivotTable TableDestination:=Range( _
"A5"), TableName:="Tableau croisé dynamique1"

Il n'y a aucune info sur ma feuille de destination...... 🙁

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 30 Juillet 2008

• #4

Re : préciser feuille pour tableau croisé

il faut d'abord créer la feuille de destination, et créer la macro ensuite (enfin il me semble...) je teste ça et te redis

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 30 Juillet 2008

• #5

Re : préciser feuille pour tableau croisé

C'est ce que j'ai fais, la feuille est déjà existante quand j'y insère le tableau croisé......

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 30 Juillet 2008

• #6

Re : préciser feuille pour tableau croisé

Il faut que tu changes le paramètre TableDestination et préciser le nom de la feuille. (et pas seulement la cellule)

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 30 Juillet 2008

• #7

Re : préciser feuille pour tableau croisé

et ensuite dans ton code remplacer activesheet par sheets(le_nom_de_ta _feuille)

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 30 Juillet 2008

• #8

Re : préciser feuille pour tableau croisé

Bon, j'ai tenté le truc selon tes conseils mais il me manque "l'orthographe" exacte du code, j'ai écris :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, 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("esti_autrsect").PivotTables("Tableau croisé dynamique1").PivotFields( _
"VEN_QTE_DEBARQUEE").Orientation = xlDataField
Application.CommandBars("PivotTable").Visible = False

et il ne veut pas comprendre la table destination....... Que manque t'il ??!!
sniff.....

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 30 Juillet 2008

• #9

Re : préciser feuille pour tableau croisé

tu utilises Sheets("autrefeuille") et Sheets("esti_autrsect")...
c'est probablement là que réside le problème

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 30 Juillet 2008

• #10

Re : préciser feuille pour tableau croisé

La macro s'arrête à cette ligne :

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

Et j'ai le message : Erreur d'execution '1004' Erreur définie par l'application ou par l'objet. L'erreur sur le nom de la feuille n'est pas en cause à cette étape

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 30 Juillet 2008

• #11

Re : préciser feuille pour tableau croisé

A quoi correspond Celadr?

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 30 Juillet 2008

• #12

Re : préciser feuille pour tableau croisé

Je te mets le code en entier pour que ce soit plus clair !

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:=xlDatabase, 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

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 30 Juillet 2008

• #13

Re : préciser feuille pour tableau croisé

Je viens de trouver LA solution!!

Au lieu d'écrire
TableDestination:=Sheets("autrefeuille").Range("A5"), TableName:="Tableau croisé dynamique1"

Il faut noter :
TableDestination:="'autrefeuille'!R5C1", TableName:="Tableau croisé dynamique1"

Et la ça marche bien !!

Merci quand même pour tes conseils joss56, qui m'ont bien fait avancer !

@ +

mumu

 

Vote positif 0 Vote négatif