Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1766 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1980088
superdeug2
Geek 1 jour, Geek pour tjrs
Posté le 01-04-2010 à 16:54:54  profilanswer
 

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
mood
Publicité
Posté le 01-04-2010 à 16:54:54  profilanswer
 

n°1980465
dje69r
Arme de distraction massive
Posté le 02-04-2010 à 16:37:13  profilanswer
 

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 dje69r le 02-04-2010 à 16:39:15

---------------
Plus tu pédales moins vite, moins tu avances plus vite — SuperLoustic ! La radio des Loustics !
n°1981558
superdeug2
Geek 1 jour, Geek pour tjrs
Posté le 07-04-2010 à 12:29:09  profilanswer
 

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
n°2158134
ludoja
Posté le 25-09-2012 à 17:50:08  profilanswer
 

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 :
  1. ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  2.         "Janv!R10C1:R96C38", Version:=xlPivotTableVersion14).CreatePivotTable _
  3.         TableDestination:="Resume!R2C10", TableName:="Tableau croisé dynamique9", _
  4.         DefaultVersion:=xlPivotTableVersion14
  5.     Sheets("Resume" ).Select
  6.     Cells(2, 10).Select
  7.     With ActiveSheet.PivotTables("Tableau croisé dynamique9" ).PivotFields("Lot " )
  8.         .Orientation = xlRowField
  9.         .Position = 1
  10.     End With
  11.     ActiveSheet.PivotTables("Tableau croisé dynamique9" ).AddDataField ActiveSheet. _
  12.         PivotTables("Tableau croisé dynamique9" ).PivotFields("TOTAL" ), "Somme de TOTAL" _
  13.         , 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  
 


Aller à :
Ajouter une réponse
  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'enregistrerCré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?


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR