Création d'un TCD par macro

Bonjour,

Je voudrais créer un TCD par macro. Celle-ci serait utilisable sur d'autre fichier excel.
Sur chacun des fichiers excel je dois utilisé les données de l'onglet "Source" (toujours prénommé ainsi), pour les insérer dans un TCD, où l'onglet se nomme "TCD". Etant débutant, je trouve des bouts de code que j'essaye d'adapter à ma situation, mais je reste bloqué. De plus, j'ai beaucoup de mal à décrypter la ligne concernant la création de ce TCD.

Code:

---

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

Sub test_creation_tcd() ' ' CREERTCD Macro ' ' Sélection des données Sheets("Source").Select Columns("A:S").Select   ' Création du TCD ActiveWorkbook.Worksheets("TCD").PivotTables( _ "Tableau croisé dynamique").PivotCache.CreatePivotTable TableDestination:= _ "", TableName:="Tableau croisé dynamique", DefaultVersion:= _ xlPivotTableVersion12   ' Actualiser Range("C9").Select ActiveSheet.PivotTables("Tableau croisé dynamique").PivotCache.Refresh End Sub

---

Ici j'ai une erreur 1004 (Très récurrente à ce que j'ai lus), à la création du TCD : "Impossible de lire la prorpiété PivotTables de la classe Worksheet"

D'autre message d'erreur que j'ai pus avoir en essayant divers code :
"Le nom de champ de tableau croisé dynamique n’est pas valide. Pour créer un tableau croisé dynamique, vous devez utiliser des données qui sont organisées sous forme de liste avec des étiquettes de colonnes. Si vous modifiez le nom d’un champ de tableau croisé dynamique, vous devez taper un nouveau nom pour le champ. "



Merci d'avance !

Bonjour,

Code:

---

TableName:="Tableau croisé dynamique"

---

C'est ici qu'il va cherché la source du TCD, as-tu bien une table nommée :="Tableau croisé dynamique" dans ton classeur?

si non, essaye d'ajouter ceci avant la création du TCD

Code:

---

Sheets("Source").ListObjects.Add(xlSrcRange, Sheets("Source").SelectRange("A:S", , xlNo).Name = "Tableau croisé dynamique"

---

Code:

---

Sheets("Source").ListObjects.Add(xlSrcRange, Sheets("Source").SelectRange("A:S", , xlNo).Name = "Tableau croisé dynamique")

---

Il semblerait y avoir une erreur de syntaxe.

Table = Feuille ? Si oui, j'ai bien essayé d'en rajouter une nommée : "Tableau Croisé Dynamique" et une seconde nommée "TCD". Mais, l'erreur persiste.

Merci de votre réponse.

Chez moi le code fonctionne, et d'après ce que tu as posté il y a une paranthèse a la fin que je n'ai pas. Tu as bien une feuille nommée "Source"?
Une table n'est pas un feuille.

Bonjour,

Il manquais une parenthèse pour le ".Add()"

Code:

---

Sheets("Source").ListObjects.Add(xlSrcRange, Sheets("Source")).SelectRange("A:S", , xlNo).Name = "Tableau croisé dynamique"

---

Ceci corrigé, cette ligne fonctionne avec ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sheets("Source").Select Columns("A:S").Select Sheets("Source").ListObjects.Add(xlSrcRange, Sheets("Source")).SelectRange("A:S", , xlNo).Name = "Tableau croisé dynamique" ' Création du TCD ActiveWorkbook.Worksheets("TCD").PivotTables( _ "Tableau croisé dynamique").PivotCache.CreatePivotTable TableDestination:= _ "", TableName:="Tableau croisé dynamique", DefaultVersion:= _ xlPivotTableVersion12   ' Actualiser Range("C9").Select ActiveSheet.PivotTables("Tableau croisé dynamique").PivotCache.Refresh

---

Mais il me donne une erreur de compilation : "Argument ou appel de procédure incorrect"

Ceci est une table ? Il se peut que certaine cellule soit vide, sans aucun caractère. Cela peut-il poser problème ?

http://img4.hostingpics.net/pics/917125Sanstitre.png

Pour mettre les données sous forme de table:
Pièce jointe 218806

Tu n'est pas obligé d'utiliser une table pour faire un TCD mais c'est ce qu'il y avait dans ton code.
Un TCD peut se créer avec une table vide

Citation:

---

Mais il me donne une erreur de compilation : "Argument ou appel de procédure incorrect"

---

Quel ligne?

Bonjour

Si tu laisses la ligne 1 vide, tu ne peux utiliser la plage A:S car alors la source n'as pas d'en-têtes.

Soit supprimer cette ligne, soit calculer la hauteur de la plage à partir de la ligne 2.

Edit : non Halaster08, Tablename est le nom donné au TCD pas celui de la source qui était depuis le début supposée être la plage A:S mais qui manque dans le code :

Code:

---

SourceData:=

---

Quitte à créer un tableau, le nommer Source ou Data ou Données plutôt que Tableau Croisé Dynamique...

Pour la ligne qui utilise une table, je ne savais même pas qu'il y en avais une. Je suppose que c'est dans cette ligne (celle que je ne comprends absolument pas ^^)

Code:

---

1 2 3 4 5

' Création du TCD ActiveWorkbook.Worksheets("TCD").PivotTables( _ "Tableau croisé dynamique").PivotCache.CreatePivotTable TableDestination:= _ "", TableName:="Tableau croisé dynamique", DefaultVersion:= _ xlPivotTableVersion12

---

Quant à l'erreur, elle vient de cette ligne :

Code:

---

Sheets("Source").ListObjects.Add(xlSrcRange, Sheets("Source")).SelectRange("A:S", , xlNo).Name = "Tableau croisé dynamique"

---

Re

C'est de toute façon un non sens de créer une table sur toute la hauteur des colonnes.

Il manque une parenthèse dans la ligne et il est plusq ue conseillé d'avoir une ligne considérée comme en-tête lors de la création du tableau.

Tu peux utiliser

Code:

---

1 2 3

Set Plage = Range("A2").CurrentRegion Sheets("Source").ListObjects.Add(xlSrcRange, Plage, , xlYes).Name = "Data"

---

Ce tableau nommé Data doit ensuite être indiqué en source lors de la création du TCD

Edit : et pour la création du TCD

Code:

---

1 2 3 4

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Data", Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:= _ "TCD!R3C1", TableName:="TCD", DefaultVersion:= _ xlPivotTableVersion12

---

@78chris
Il me semblais pourtant avoir obtenu cette syntaxe via l'enregistreur de macro. (Ca doit être la chaleur ....) (Faut bien trouver une excuse)
Pour la plage qui commence a la ligne 2 je ne l'avais pas vu avant l'image donc je pensais que les titres étaient sur la ligne 1

@Kadom
C'est toi qui a mis des paranthèse en trop sur la ligne, regarde bien ma version où celle de chris

Bonjour 78crhis,

Je te remercie de ta réponse, cela fonctionne parfaitement !

@halaster08 En effet la parenthèse manquante ne se trouvais pas à la fin. J'avais corrigé ce détail. Et désolé pour la plage, j'aurais prévenir qu'elle ne commencais pas sur la première ligne !