Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel TCD

TCD

5 réponses
Avatar
pb
Bonjour,
A l'aide de l'enregistreur de Macro je fais un TCD.
Voici le code:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Traitement!C1:C59").CreatePivotTable TableDestination:="",
TableName:= _
"TCD2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 2)
ActiveSheet.Cells(3, 2).Select
ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"
ActiveSheet.PivotTables("TCD2").PivotFields("Réclamation") _
.Orientation = xlDataField

Je ne comprends pas pourquoi le code n'a marché qu'une seule fois.

La seconde fois et depuis il plante sur:

ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"

Merci de vos éclaircissements
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
Quel est le message d'erreur ?
Cordialement.
Daniel

Bonjour,
A l'aide de l'enregistreur de Macro je fais un TCD.
Voici le code:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Traitement!C1:C59").CreatePivotTable TableDestination:="",
TableName:= _
"TCD2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3, 2)
ActiveSheet.Cells(3, 2).Select
ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"
ActiveSheet.PivotTables("TCD2").PivotFields("Réclamation") _
.Orientation = xlDataField

Je ne comprends pas pourquoi le code n'a marché qu'une seule fois.

La seconde fois et depuis il plante sur:

ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"

Merci de vos éclaircissements


Avatar
pb
Bonjour,
Il s'agit de l'erreur 1004:

La Méthode Addfields de la classe PivotTable a échoué

Merci

"Daniel.C" a écrit dans le message de news:
%
Bonjour.
Quel est le message d'erreur ?
Cordialement.
Daniel

Bonjour,
A l'aide de l'enregistreur de Macro je fais un TCD.
Voici le code:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Traitement!C1:C59").CreatePivotTable TableDestination:="",
TableName:= _
"TCD2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3,
2)
ActiveSheet.Cells(3, 2).Select
ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"
ActiveSheet.PivotTables("TCD2").PivotFields("Réclamation") _
.Orientation = xlDataField

Je ne comprends pas pourquoi le code n'a marché qu'une seule fois.

La seconde fois et depuis il plante sur:

ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"

Merci de vos éclaircissements






Avatar
Daniel.C
Apparemment, C1:C59, tu ne prends qu'une colonne pour ton TCD ?
Quelle est ta plage de données ?
Daniel

Bonjour,
Il s'agit de l'erreur 1004:

La Méthode Addfields de la classe PivotTable a échoué

Merci

"Daniel.C" a écrit dans le message de news:
%
Bonjour.
Quel est le message d'erreur ?
Cordialement.
Daniel

Bonjour,
A l'aide de l'enregistreur de Macro je fais un TCD.
Voici le code:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Traitement!C1:C59").CreatePivotTable TableDestination:="",
TableName:= _
"TCD2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3, 2)
ActiveSheet.Cells(3, 2).Select
ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"
ActiveSheet.PivotTables("TCD2").PivotFields("Réclamation") _
.Orientation = xlDataField

Je ne comprends pas pourquoi le code n'a marché qu'une seule fois.

La seconde fois et depuis il plante sur:

ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"

Merci de vos éclaircissements








Avatar
pb
C'est résolu.
J'ai remplacé c1:c59 par une plage dynamique
Merci Quand même
"Daniel.C" a écrit dans le message de news:
%23GVM$
Apparemment, C1:C59, tu ne prends qu'une colonne pour ton TCD ?
Quelle est ta plage de données ?
Daniel

Bonjour,
Il s'agit de l'erreur 1004:

La Méthode Addfields de la classe PivotTable a échoué

Merci

"Daniel.C" a écrit dans le message de news:
%
Bonjour.
Quel est le message d'erreur ?
Cordialement.
Daniel

Bonjour,
A l'aide de l'enregistreur de Macro je fais un TCD.
Voici le code:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Traitement!C1:C59").CreatePivotTable TableDestination:="",
TableName:= _
"TCD2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3,
2)
ActiveSheet.Cells(3, 2).Select
ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"
ActiveSheet.PivotTables("TCD2").PivotFields("Réclamation") _
.Orientation = xlDataField

Je ne comprends pas pourquoi le code n'a marché qu'une seule fois.

La seconde fois et depuis il plante sur:

ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"

Merci de vos éclaircissements












Avatar
Daniel.C
Le "Quand même" est de trop; même avec une majuscule.
Daniel

C'est résolu.
J'ai remplacé c1:c59 par une plage dynamique
Merci Quand même
"Daniel.C" a écrit dans le message de news:
%23GVM$
Apparemment, C1:C59, tu ne prends qu'une colonne pour ton TCD ?
Quelle est ta plage de données ?
Daniel

Bonjour,
Il s'agit de l'erreur 1004:

La Méthode Addfields de la classe PivotTable a échoué

Merci

"Daniel.C" a écrit dans le message de news:
%
Bonjour.
Quel est le message d'erreur ?
Cordialement.
Daniel

Bonjour,
A l'aide de l'enregistreur de Macro je fais un TCD.
Voici le code:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Traitement!C1:C59").CreatePivotTable TableDestination:="",
TableName:= _
"TCD2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:¬tiveSheet.Cells(3,
2)
ActiveSheet.Cells(3, 2).Select
ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"
ActiveSheet.PivotTables("TCD2").PivotFields("Réclamation") _
.Orientation = xlDataField

Je ne comprends pas pourquoi le code n'a marché qu'une seule fois.

La seconde fois et depuis il plante sur:

ActiveSheet.PivotTables("TCD2").AddFields RowFields:= _
"code usine", ColumnFields:="Libellé"

Merci de vos éclaircissements