julien974
XLDnaute Occasionnel
Bonjour,
J'ai un petit soucis pour créer automatiquement mon TCD.
Lorsque je lance la macro, un Beug apparait...
"Impossible de lire la propiété PivotTable de la classe worcksheet"
Voici la macro
Voici la ligne qui ne fonctionne pas
Merci de votre aide,
Cordialement,
Juli3n974
J'ai un petit soucis pour créer automatiquement mon TCD.
Lorsque je lance la macro, un Beug apparait...
"Impossible de lire la propiété PivotTable de la classe worcksheet"
Voici la macro
HTML:
Sub Macro21()
Sheets("MATRICE21").Activate
Columns("A:G").Select
Selection.Delete Shift:=xlToLeft
Sheets("MATRICE1").Activate
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Sheets("MATRICE1").Range("A1").CurrentRegion).CreatePivotTable TableDestination:= _
"[Coûtsemaine2.xls]Matrice21!R1C1", TableName:="Tableau croisé dynamique4", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddFields RowFields:= _
"Semaine", PageFields:="Niv 1"
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Coût"). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
Range("A5").Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Matrice21").Range("B6")
ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub
Voici la ligne qui ne fonctionne pas
HTML:
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddFields RowFields:= _
"Semaine", PageFields:="Niv 1"
Merci de votre aide,
Cordialement,
Juli3n974