RESOLU Macro de tableau croisé dynamique qui ne fonctionne plus...

[Melomie]

Bonjour à tous,

Je suis nouvelle ici et je viens vous demander de l'aide.
J'ai fais une macro pour créer un tableau croisé dynamique, qui fonctionnait au debut, et maintenant que je dois la présenter à mon supérieur... Voilà qu'elle ne fonctionne plus! j'ai essayé de la refaire plusieurs fois mais rien n'y fais...

Voici le code de la macro (j'utilise excel 2003)
Quelqu'un pourrait-il m'aider?




Sheets("Feuil2").Select
Sheets.Add

ActiveWorkbook.PivotCaches.add(SourceType:=xlDatabase, SourceData:=
"Feuil1!R1C1:R1000C15").CreatePivotTable TableDestination:= _
"[Test5.xls]Feuil3!R3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10

ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
Array("Grpe marc", "Donneur d'ordre"), ColumnFields:="Semaine"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("RAP")
.Orientation = xlDataField
.Caption = "Somme de RAP"
.Function = xlSum
End With
Range("D9").Select
End Sub






lorsque le débogeur se met en route ça me surligne en rouge le 2e paragraphe...


Merci de votre aide précieuse, si je n'ai pas été assez claire n'hésitez pas!


Elodie.

 

[Melomie]

Re : Macro de tableau croisé dynamique qui ne fonctionne plus...

En fait j'ai aussi d'autres soucis avec cette macro que je dois présenter demain, mais ce problème est le plus important... :s

 

[Melomie]

Re : Macro de tableau croisé dynamique qui ne fonctionne plus...

Bon finalement j'ai tout recommencé avec l'aide de l'enregistreur de macro et ça fonctionne, je ne sais pas ce qui n'allait pas...

voici le nouveau code pour ceux que ça intéresse:


Sheets("Feuil1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R1000C15").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Semaine"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Grpe marc"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Donneur d'ordre").Subtotals = Array(False, False, False, False, False, False, False, _
False, False, False, False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _
Array("Grpe marc", "Donneur d'ordre"), ColumnFields:="Semaine"
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("RAP")
.Orientation = xlDataField
.Caption = "Somme de RAP"
.Function = xlSum
End With
End Sub



Merci quand même!

A bientot

 

[Dugenou]

Re : Macro de tableau croisé dynamique qui ne fonctionne plus...

Bonjour,

Peut-être le nom du TCD qui aurait changé car tu l'a refait ?

Cordialement

 

[Melomie]

Re : Macro de tableau croisé dynamique qui ne fonctionne plus...

Bonjour,

Effectivement, ça devait être à cause de ça car il s'appelle TCD1 dans mon premier code et TCD2 dans le deuxième...

Merci !