Macro tableau croisé dynamique

Bonjour le forum,

Je commence les tableaux croisés dynamiques en vba. Pour voir ce que çà donne au niveau du code, j'ai enregistré une macro et essayé de modifier le code à l'intérieur. Pas probant pour moi :cry:
Je suis dessus depuis hier et vraiment je n'y arrive pas.
Qu'elqu'un pourrait-il me donner un petit coup de main ou une piste ?
Par avance merci !!

J'ai modifié quelques trucs, le code ne doit pas être très optimisé....
L'erreur que je récupère est : "Erreur d'exécution 9 - l'indice n'appartient pas à la sélection" mais je n'arrive pas à isoler les arguments de la méthode pour voir quelle valeur ils prennent.

Code:

---

1 2 3 4 5 6 7 8

Selection.CurrentRegion.Select Sheets.Add ActiveSheet.Name = "TCD" ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ Sheets("Data").Range("A1").CurrentRegion, Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:="TCD!R3C1", TableName:="Montableau", _ DefaultVersion:=xlPivotTableVersion12 Sheets("TCD").Select

---

Bonsoir,

La feuille où tu crées ton TCD s'appelle-t-elle TCD ? Tes données sources sont-elles sur la feuille Data ?

Code:

---

.Range("A1").CurrentRegion

---

va te faire la tête. Il faut remplacer par :

Code:

---

.Range("A1:Z100")

---

si tes valeurs sources sont dans la zone allant de A1 à Z100, par exemple. Le CurrentRegion représentait la zone que tu avais sélectionnée avant de lancer l'enregistreur de macros.

Ton tableau s'appelle-t-il bien Montableau ?

Je pense vraiment que ça vient du CurrentRegion en données source mais si ça ne marche pas, fais voir ce que tu avais avant de changer.

A titre d'info, quand tu lances l'enregistreur pense toujours à sélectionner le champ souhaité avant. Si jamais tu es déjà dessus, il va te manquer des choses dans ta macro. Au pire, tu déselectionnes puis resélectionnes. Ca mange pas de pain et ça évite ce genre de problèmes :zoubi:

Bonne nuit !

Dead, merci pour ta réponse.
Ce matin avec mon cerveau tout frais ;) j'ai vu mon erreur... Avant de vérifier cette fameuse erreur je me suis dit "non tu n'as quand même pas fait çà !!!" .....et si !
Pendant mes tests, je ferme et ouvre mon classeur et la feuille Data, je l'avais nommée et je n'avais pas enregistré, pour moi, elle s'appelait Data mais c'était feuil1. Donc a force, j'ai un peu saturée je crois :oops:
Avec mon changement de nom de feuille, tout fonctionne et mon

Code:

---

Range("A1").currentregion

---

fonctionne aussi.

Merci pour tes conseils :ccool:

A bientôt

NATY