Discussion :

[Otmanes]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[DeaD78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !