Excel: Macro pour créer un TCD sur une autre feuille?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Excel: Macro pour créer un TCD sur une autre feuille?

superdeug2

Geek 1 jour, Geek pour tjrs

Hello

J'ai besoin de vos lumière pour corriger le code de ma macro qui est sensée me créer un TCD sur une autre feuille que celle où se trouve les données...
Je suis passé par l'enregistreur de macro mais en la lançant par la suite, la macro veux me coller le TCD sur la feuille où sont mes données, pas cool quoi.

Je pense que c'est le code qui ne précise pas l'adresse de la feuille de destination.

Feuille "RAPPORT" = celle où se trouve mes données
Feuille "SYNTHESE" = celle ou je veux coller mon TCD si possible à la cellule A10.

merchiii

ctiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"RAPPORT!R1C1:R3000C8" ).CreatePivotTable TableDestination:="'SYNTHESE'!R1C10", _
TableName:="Tableau croisé dynamique4"
ActiveSheet.PivotTables("Tableau croisé dynamique4" ).SmallGrid = False
ActiveSheet.PivotTables("Tableau croisé dynamique4" ).AddFields RowFields:= _
Array("Famille d'Objets", "Données" )
With ActiveSheet.PivotTables("Tableau croisé dynamique4" ).PivotFields( _
"Date Appel_" )
.Orientation = xlDataField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique4" ).PivotFields("Date Appel_" ) _
.Orientation = xlDataField

---------------
mon feed-back: http://forum.hardware.fr/hfr/Achat [...] 4641_1.htm

Publicité

SuppotDeSaTante

Aka dje69r

Hello

Il n'y a pas de ' dans la syntaxe
Et A10 c'est R10C1 (R = Ligne (Row) et C = Colonne (Column))
CreatePivotTable TableDestination:="SYNTHESE!R10C1"

Message édité par SuppotDeSaTante le 02-04-2010 à 16:39:15

---------------
Soyez malin, louez entre voisins !

superdeug2

Geek 1 jour, Geek pour tjrs

bon même comme ça ça ne marchait pas. J'ai donc nommé ma plage variable de données et c'est bon.

---------------
mon feed-back: http://forum.hardware.fr/hfr/Achat [...] 4641_1.htm

ludoja

Bonjour,

Je relance ce sujet car j'ai exactement la même erreur en ce moment et je n'arrive pas à m'en dépétrer!
Si quelqu'un à le bout de code qui va bien...
J'ai utilisé l'enregistreur de macro, coller le bout de code dans une nouvelle macro et j'ai l'erreur "Erreur d'éxécution 1004" Erreur défini par l'application ou par l'objet.

Voici le code que j'utilise:

Code :

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Janv!R10C1:R96C38", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Resume!R2C10", TableName:="Tableau croisé dynamique9", _
DefaultVersion:=xlPivotTableVersion14
Sheets("Resume" ).Select
Cells(2, 10).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique9" ).PivotFields("Lot " )
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique9" ).AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique9" ).PivotFields("TOTAL" ), "Somme de TOTAL" _
, xlSum

la feuille Janv est celle ou je récupère les données pour alimenter le TCD.
la feuille RESUME est celle ou je veux avoir le TCD

Merci d'avance pour votre aide!

Ludo

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Excel: Macro pour créer un TCD sur une autre feuille?

Sujets relatifs
document excel MdP ou lecture seule avec interdiction d'enregistrer	Créer un menu déroulant basique
Exporter un tableau Excel 2007 vers Access	[EXCEL] utiliser SI avec ET et OU
html : créer un lien de téléchargement d'un fichier pdf [résolu]	[Résolu] Perte de feuille de style sur changement de page
Transfert de données d'une feuille excel vers un tableau VBA	[VBA - Macro Excel] Masquer colonne sous condition
Plus de sujets relatifs à : Excel: Macro pour créer un TCD sur une autre feuille?

Page générée en 0.049 secondes