Problème lors de la création de tableau croisé dynamique avec vba
Bonjour,
Je cherche à créer un tableau croisé dynamique à partir d'une base de données stockée dans la feuille nommée 'Charge'.
En colonne, je souhaite avoir en ligne la colonne nommée 'Département' (colonne C de ma base de données) et en colonne la colonne nommée 'Semaine' (colonne B de ma base de données). Ma donnée est la somme de la colonne 'Temps restant' (colonne J de ma base de données).
Les entêtes de colonne de ma base de données sont situées en ligne 7.
Ces informations sont stockées dans le même classeur dans la feuille nommée 'TCD'.
J'ai positionné ce morceau de code derrière le bouton situé sur ma base de données après la constitution de celle-ci.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
lig = lig - 1
ActiveSheet.PivotTableWizard _
SourceType:=xlDatabase, _
SourceData:="Charge!A7J7:A" & lig & "J" & lig, _
TableDestination:="TCD!A1C1", _
TableName:="MonTCD"
ActiveSheet.PivotTables("Tableaucroisédynamique").AddFields RowFields:= _
"Département", ColumnFields:="Semaine"
With ActiveSheet.PivotTables("Tableaucroisédynamique").PivotFields("Montant")
.Orientation = xlDataField
.Caption = "Temps restant"
.Function = xlSum
.NumberFormat = "# ##0"
End With |
J'ai le message "PivotTableWizard de la classe Worksheet a échoué". (erreur d'exécution 1004).
Je ne sais pas comment m'y prendre pour résoudre ce problème.
Julien.
