Pb avec Macro générant un TCD

Re : Pb avec Macro générant un TCD

Bonsoir,

C'est le ActiveSheet de :
ActiveSheet.PivotTables("TCD").AddFields RowFields:="Désignation", _
ColumnFields:="Mois"

Qui pose probleme.

Voir le fichier joint

Re : Pb avec Macro générant un TCD

Bonjour Catrice

Super!
Merci beaucoup de ta réponse.
Ta macro marche, j'ai réussi à l'adapter à mon fichier c'est parfait.

J'ai remplacé la partie Activesheet par With sheet, et la selection de la fin de tableau.

Enfin juste une question, quand je fais un copier coller de tout ton code dans ma macro, celà ne passe pas.
Erreur d'exécution 5
argument ou appel de procédure incorrecte
Sais tu pourquoi? C'est pas important mais j'aimerais juste comprendre.

En tout cas encore merci

Bonne journée à toi

Boune

Re : Pb avec Macro générant un TCD

Bonjour,

Je n'ai pas compris la manipulation que tu faisais ...
Ca plante à quel moment ?

Re : Pb avec Macro générant un TCD

Alors,

J'ai fait un copier coller de ta macro (qui fonctionne parfaitement dans le fichier que tu m'as joint), qui comporte exactement les même noms que tous les éléments dans ma macro qui ne fonctionnait pas. Alors celà donne :

Sub Testcatrice()
Sheets("Etat Mensuel Par Four").Cells.Clear 'Efface les cellules

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"listing!" & Sheets("listing").Range("A1").CurrentRegion.Address).CreatePivotTable TableDestination:= _
"'[Suivi Global Factures.xls]Etat Mensuel Par Four'!R2C2", TableName:="TCD"

With Sheets("Etat Mensuel Par Four").PivotTables("TCD")
.AddFields RowFields:="Désignation", ColumnFields:="Mois"
With .PivotFields("Prix")
.Orientation = xlDataField
.Caption = "Somme de Prix"
.Function = xlSum
End With
End With
End Sub

Cette manip me donne l'erreur que j'ai cité précedemment. En gras le bug.

Pour contourner le pb j'ai remplacé, dans la macro que j'ai créé, uniquement le code de l'activesheet avec la solution que tu m'as proposé, et là ça fonctionne parfaitement.

Ci dessous le code qui fonctionne (pour lequel j'ai même ajouté un 2ème TCD dans la macro):

Sheets("Etat Mensuel Par Four").Select
ActiveWindow.SmallScroll Down:=-15
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("listing").Select
Range("A1").Select
Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"listing!" & Sheets("listing").Range("A1").CurrentRegion.Address).CreatePivotTable TableDestination:= _
"'[Suvi Global Factures.xls]Etat Mensuel Par Four'!R2C1", TableName:= _
"TCD", DefaultVersion:=xlPivotTableVersion10

With Sheets("Etat Mensuel Par Four").PivotTables("TCD")
.AddFields RowFields:="Désignation", ColumnFields:="Mois"
With .PivotFields("Prix")
.Orientation = xlDataField
.Caption = "Somme de Prix"
.Function = xlSum
End With
End With
Sheets("Etat Par compte").Select
ActiveWindow.SmallScroll Down:=-15
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("listing").Select
Range("A1").Select
Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"listing!" & Sheets("listing").Range("A1").CurrentRegion.Address).CreatePivotTable TableDestination:= _
"'[Suvi Global Factures.xls]Etat Par compte'!R2C1", TableName:= _
"TCD2", DefaultVersion:=xlPivotTableVersion10

With Sheets("Etat Par compte").PivotTables("TCD2")
.AddFields RowFields:="Compte", ColumnFields:="Mois"
With .PivotFields("Prix")
.Orientation = xlDataField
.Caption = "Somme de Prix"
.Function = xlSum
End With
End With
Sheets("listing").Select
Range("A1").Select
End Sub


Donc mon problème est résolu, mais j'aimerais juste comprendre pourquoi le copier coller ne passe pas, tout simplement pour mieux apprendre.

Je te remercie encore une fois de ton aide.

Bonne apres midi

Boune

Re : Pb avec Macro générant un TCD

Re,

C'est un pb de nom de fichier 😉

Suvi Global Factures.xls au lieu de Suivi Global Factures.xls


Les Select ne servent à rien, ceci est à supprimer:

Sheets("Etat Mensuel Par Four").Select
ActiveWindow.SmallScroll Down:=-15
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("listing").Select
Range("A1").Select
Selection.CurrentRegion.Select

Re : Pb avec Macro générant un TCD

Re,

Ce code fontionne chez moi (avec le bon nom de fichier 😉):

Sub Test3()
Sheets("Etat Mensuel Par Four").Cells.Clear 'Efface les cellules
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"listing!" & Sheets("listing").Range("A1").CurrentRegion.Address).CreatePivotTable TableDestination:= _
"'[Suivi Global Factures.xls]Etat Mensuel Par Four'!R2C1", TableName:="TCD"

With Sheets("Etat Mensuel Par Four").PivotTables("TCD")
.AddFields RowFields:="Désignation", ColumnFields:="Mois"
With .PivotFields("Prix")
.Orientation = xlDataField
.Caption = "Somme de Prix"
.Function = xlSum
End With
End With
'--------------
Sheets("Etat Par compte").Cells.Clear 'Efface les cellules
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"listing!" & Sheets("listing").Range("A1").CurrentRegion.Address).CreatePivotTable TableDestination:= _
"'[Suivi Global Factures.xls]Etat Par compte'!R2C1", TableName:="TCD2"
With Sheets("Etat Par compte").PivotTables("TCD2")
.AddFields RowFields:="Compte", ColumnFields:="Mois"
With .PivotFields("Prix")
.Orientation = xlDataField
.Caption = "Somme de Prix"
.Function = xlSum
End With
End With
End Sub

Voir fichier joint

Re : Pb avec Macro générant un TCD

Ah la loose!
J'ai fait attention, c'est ça le pire!!
Bon ben j'ai appris qu'il fallait que je fasse beaucoup plus attention 🙂

Merci beaucoup de ton aide!!!
Bonne fin de journée