Problème lors de la création d'un TCD

[julien974]

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

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

    ActiveSheet.PivotTables("Tableau croisé dynamique4").AddFields RowFields:= _
        "Semaine", PageFields:="Niv 1"

Merci de votre aide,

Cordialement,

Juli3n974

 

[James007]

Re : Problème lors de la création d'un TCD

Bonjour,

Tu pardonneras la naiveté de ma question ... mais le nom des champs qui apparaissent dans ta macro sont bien la copie conforme des entêtes de ta base de données ... "Semaine" et "Niv 1" ....

 

[julien974]

Re : Problème lors de la création d'un TCD

Hélas oui...

Merci de votre aide car là je ne vois pas vraiment où est le problème...

Juli3n974

 

[julien974]

Re : Problème lors de la création d'un TCD

Re,

Je vous mets un fichier en exemple.

Cordialement,

Juli3n 974

 

[julien974]

Re : Problème lors de la création d'un TCD

Vraiment personne ne peut me dire pq ma macro ne fonctionne pas?

Merci bcp,

Juli3n974

 

[julien974]

Re : Problème lors de la création d'un TCD

Un petit up car cela fait deux semaines que je reste sans réponses.

Vous n'auriez pas une petite idée?

Merci,

Juli3n 974