Macro Tableau croisé dynamique

Bonjour,
Je veux élaborer une Macro sous EXCEL 2003 qui permet de créer un TABLEAU CROISÉ DYNAMIQUE à partir d'une feuille de calcul active contenant les en-têtes de colonnes suivantes: CPM , WBS , Description (ne sera pas incluse dans le TCD),Pl. Cost , Act. Cost , Pl. Revenu , Act. Revenu
Ce TCD sera créé dans une nouvelle feuille de calcul avec la disposition suivante:
CPM ----> Page
WBS ----> Ligne
Pl. Cost , Act. Cost , Pl. Revenu , Act. Revenu ----> Données (en Colonne)

Voici le résultat à obtenir:
http://img40.imageshack.us/img40/8353/tcdt.jpg
De cette manière, je peux choisir au début le CPM pour obtenir la liste des WBS, puis choisir le WBS que je veux voir.

J'ai déjà essayé d'enregistrer une macro mais en essayant de l'exécuter j'obtiens le message d'erreur: run time error 1004. Et après avoir cliqué sur Debug, la ligne concernée contient ceci:

Code:

---

1 2	ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("WBS", _ "Data"), PageFields:="CPM"

---

Merci d'avance à tous ceux qui pourraient m'aider à élaborer cette macro, ou à corriger l'erreur.

Salut,

Réessaie à l'enregistreur de macros, ça marche très bien. Je suis sous 2003 aussi.

A titre d'info, je viens de le faire avec des données différentes que j'ai trouvées dans un de mes Excel et j'ai enregistré une macro qui donne un TCD qui a exactement la même tête que le tien :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Macro1() ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "DATA1!R1C1:R35C4").CreatePivotTable TableDestination:="", TableName:= _ "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Cycle") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _ "Structure Element") .Orientation = xlColumnField .Position = 1 End With With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Title") .Orientation = xlPageField .Position = 1 End With End Sub

---

Et ça fonctionne très bien après. Alors, recommence calmement, en prenant soin de bien tout faire etc. Ou sinon adapte le code que j'ai obtenu. D'ailleurs, il n'y a aucune raison qu'une macro enregistrée à l'enregistreur ne marche pas quand tu l'exécutes par la suite.

Au pif, comme ça, sans avoir vu ton code (entièrement), je dirais que tu n'as pas supprimé la feuille et le TCD que tu avais créés pendant l'enregistrement avant de lancer la macro. Du coup, vu qu'il est déjà existant, la macro ne peut pas écrire par-dessus.

Bonne chance pour la suite !