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é :
et un bout du fichier que j'ai à l'origine en PJ
Meci d'avance à tous de toute l'aide que vous m'apporteriez
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