Gé,ération de TCDs par une macro

yannosh001

XLDnaute Nouveau
Bonjour à tous, et Bonne année 2009

Je bute sur un problème de macro... j'ai cherché sur le forum, j'ai testé pas mal de choses, mais rien que j'ai pu adapter à mon cas.

J'ai une macro déja existante qui récupère des données a droite à gauche fait un certain nombre de manipulation, pour mettre un tableau en forme sur un onglet nommé "Mouvements".

Important à noter, car je crois que mon problème viens de là : cette onglet au début de l'importation est supprimé puis recrée (je sais ça peut paraitre bête mais en fait c'est malin par rapport à la tache première du programme, bref.

Sur un feuille statique cette fois nommée "Indicateurs 1" je voudrais mettre 4 TCD issus des données présentes sur "mouvement".

Que ce soit en les effaçant puis en les recréant ou bien en essayant d'actualiser les données, il me dit qu'il y a un problème avec le nom du TCD.....

voici un exemple de code un peu épuré que j'ai testé :

Code:
Columns("A:N").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Mouvements!C1:C14").CreatePivotTable TableDestination:= _
        "'[Indicateurs Modifs 1.xls]Indicateur 1'!R1C1", TableName:="TCD"
    ActiveSheet.PivotTables("TCD").AddFields RowFields:="MOYEN"
    ActiveSheet.PivotTables("TCD").AddFields ColumnFields:="POSTE"
    ActiveSheet.PivotTables("TCD").PivotFields("DELTA-Indic_1").Orientation = xlDataField

et un bout du fichier que j'ai à l'origine en PJ

Meci d'avance à tous de toute l'aide que vous m'apporteriez
 

Pièces jointes

  • exemple.xls.zip
    21.7 KB · Affichages: 21
  • exemple.xls.zip
    21.7 KB · Affichages: 25
  • exemple.xls.zip
    21.7 KB · Affichages: 25

Discussions similaires

Réponses
5
Affichages
289
Réponses
6
Affichages
421

Statistiques des forums

Discussions
312 859
Messages
2 092 934
Membres
105 569
dernier inscrit
dareverine