Création de TCD à partir de Macro ; Error : Objet requis + Total en Somme

Bonjour,

Voila mon problème :

je souhaite à l'appui sur un bouton "nomenclature" (associé à macro 2) créer un TCD sur une nouvelle feuille regroupant certaines données présentent dans ma première feuille excel.

De plus j'aimerai qu'il y ait un total (nommé "Quant") avec la fonction somme et non nombre.

Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Macro2()   ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ [Menu!R49C1].CurrentRegion.Address(, , xlR49C1, True)) _ .CreatePivotTable _ TableDestination:="Nomenclatureprovisoire!R1C1", _ TableName:="TCDnomenclature"   ' Mise en forme du TCD   With Nomenclatureprovisoire .PivotTable ("TCDnomenclature") .AddFields RowFields:=Array("FOUR/", "Code", "Désignation", _ "prix tarif", "remise équiv", "prix de revient Unitaire") .PivotFields("Quant") _ .Orientation = xlDataField .Function = xlSum   End With End Sub

---

J'obtiens l'erreur suivante : Erreur d'exécution '424' : Objet requis. Elle est placée sur TableName:="TCDnomenclature".
Pourtant j'ai bien précisé les feuilles, leurs noms et le nom de la TCD, ainsi que les champs de données.

J'espère mettre bien fait comprendre.
Cordialement.

J'ai aussi testé ce code. Il fonctionne correctement mise à part l'onglet Quant qui s'est mis en fonction nombre, je voudrai qu'il somme.

Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Sub Macro2()     Range("A49").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Menu!R49C1:R5000C10").CreatePivotTable TableDestination:="", TableName:= _ "Tableau croisé dynamique6", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select With ActiveSheet.PivotTables("Tableau croisé dynamique6") .ColumnGrand = False .RowGrand = False End With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("FOUR/"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Code"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Désignation " _ ).Subtotals = Array(False, False, False, False, False, False, False, False, False, False _ , False, False) ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("prix Tarif"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Remise équiv" _ ).Subtotals = Array(False, False, False, False, False, False, False, False, False, False _ , False, False) ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _ "prix de revient Unitaire").Subtotals = Array(False, False, False, False, False, _ False, False, False, False, False, False, False) ActiveSheet.PivotTables("Tableau croisé dynamique6").AddFields RowFields:= _ Array("FOUR/", "Code", "Désignation ", "prix Tarif", "Remise équiv", _ "prix de revient Unitaire") ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Quant"). _ Orientation = xlDataField ActiveWorkbook.ShowPivotTableFieldList = True ActiveWorkbook.ShowPivotTableFieldList = False Application.CommandBars("PivotTable").Visible = False Columns("A:G").Select Selection.Columns.AutoFit ActiveSheet.Select ActiveSheet.Name = "Nomenclature provisoire" Range("A1").Select End Sub

---

J'ai essayé ceci :

Code:

---

1 2 3 4

ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Quant") _ .Orientation = xlDataField .Caption = "Somme de Quant" .Function = xlSum

---

Sans résultats...