VBA : enregistrer macro pour TCD

Résolu/Fermé

beenie - 15 mai 2012 à 14:57
beenie - 16 mai 2012 à 10:33

Bonjour,

Etant novice sur VBA, je rencontre un petit un problème que je n'arrive pas à résoudre lorsque j'essaie d'enregistrer une macro pour générer un TCD. Voici le code :

Sub Macro2()
'
' Macro2 Macro
'

'
Range("A1:G218").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Frais!R1C1:R218C7", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil1!R3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil1").Select
Cells(3, 1).Select

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Catégorie")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Montant TTC"), _
"Somme de Montant TTC", xlSum
End Sub

Une "erreur d'exécution '1004' Erreur définie par l'application ou l'objet" se produit et je n'arrive pas à résoudre ce problème.

Je vous saurais gré de bien vouloir m'aider.

Merci

A voir également:

VBA : enregistrer macro pour TCD
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
15 mai 2012 à 23:09

Bonjour,
Essayer avec cette procédure modifiée au niveau du nom de la feuille ajoutée (shtdc) :

Sub Macro2()
'
Range("A1:G218").Select
Sheets.Add
shtdc = ActiveSheet.Name
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Frais!R1C1:R218C7", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:=shtdc & "!R3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion12
Sheets(shtdc).Select
Cells(3, 1).Select

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Catégorie")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
 PivotTables("Tableau croisé dynamique1").PivotFields("Montant TTC"), _
"Somme de Montant TTC", xlSum
End Sub

beenie
16 mai 2012 à 10:33

Merci beaucoup, ça marche parfaitement. Quel soulagement!!!!
Encore merci

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

appliquer une pause dans une macro vba excel