Bonjour à tous,

Cela fait un petit moment que je cherche sur internet la réponse à ma question mais sans trouver la solution. Je pense que la réponse est simplissime, mais je n'y arrive pas...

Ci-dessous, le code que j'ai réalisé pour pouvoir faire un TCD dans l'onglet "Base Achats" des données incluses dans l'onglet "Importation achats".
Je souhaite avoir en colonne les données "Article Ref" et pour chacune de ces données, la somme des poids "Poids total".

Cependant, lorsque je lance la macro, il m'affiche un message d'erreur Run-time error '1004'...

Si quelqu'un peut m'aider à débloquer mon problème, c'est avec grand plaisir que j'accepte.

Merci à chacun pour le temps accordé.

Bonne journée.

Cordialement,

Pierre-Yves

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
21
22
23
24
Sub Creation_TCD_Achats()
 
Dim num_ligne As Integer
ActiveWorkbook.Sheets("Importation Achats").Select
ActiveSheet.Cells(1, 1).Select
Selection.End(xlDown).Select
num_ligne = ActiveCell.Rows.Row
Set donnees = Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(num_ligne, 10))
 
ActiveWorkbook.Sheets("Base Achats").Select
Cells.Clear
 
Set pc1 = ActiveWorkbook.PivotCaches.Add(xlDatabase, "'" & donnees.Parent.Name & "'!" & donnees.Address(ReferenceStyle:=xlR1C1))
Set pt1 = pc1.CreatePivotTable(TableDestination:=Worksheets("Base Achats").Cells(3, 1), TableName:="Tableau1", DefaultVersion:=xlPivotTableVersion10)
 
With ActiveSheet.PivotTables("Tableau1").PivotFields("Article Ref")
.Orientation = xlRowField
.Position = 1
 
End With
 
ActiveSheet.PivotTables("Tableau1").PivotFields("Poids total").Function = xlSum
 
End Sub