Discussion :

[Kadom]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[halaster08]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kadom]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[halaster08]

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.

[Kadom]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ceci corrigé, cette ligne fonctionne avec ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[halaster08]

Pour mettre les données sous forme de table:


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

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

Quel ligne?

[78chris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

SourceData:=

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