[VBA] Actualisation de tableaux croisés dynamiques

Bonjour,

Je veux automatiser la génération de rapport à l'aide de macro en VBA.
Le but à la fin est de récupérer une extraction qui aura toujours la même forme (nombre et nom de colonnes) mais un nombre de lignes et des valeurs différentes biensur. On colle cette extraction dans un classeur Excel ou il y a un feuille destinée à accueillir cette extraction, et une feuille avec des tableaux croisés dynamiques pour gérer les rapports.
Les tableaux croisés dynamiques sont déjà fait, je voudrais juste que la macro viennent les réactualiser en fonction des nouvelles données et change le filtre en fonction de la date à laquelle on est.
J'ai testé sur mon extraction en faisant le code, ca marchait bien. Le problème vient quand j'ai vidé la feuille extraction et que j'ai recollé une nouvelle extraction (qui était en fait la même, pour le moment les données sont identiques). J'obtiens alors un blocage accompagné du message suivant :

erreur d'exécution '1004' :

Le nom du champ de tableau croisé dynamique n'est pas valide. Pour créer un rapport de tableau croisé dynamique, vous devez utiliser des données sous forme de liste avec des étiquettes de colonnes. Si vous changez le nom d'un champ de tableau croisé dynamique, vous devez taper un nouveau nom pour le champ.

Le code incriminé est le suivant :

Code:

---

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

Sheets("Rapports").Select ' Oter la protection de la feuille ActiveSheet.Unprotect ' Opérateur créateur ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Mois").CurrentPage = mois_b & "-" & annee ' Problèmes ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Mois").CurrentPage = mois_b & "-" & annee ' Groupe de traitement ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Mois").CurrentPage = mois_b & "-" & annee ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotCache.Refresh ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Mois").CurrentPage = mois_b & "-" & annee ' Temps de traitement ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotCache.Refresh ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Mois").CurrentPage = mois_b & "-" & annee ' Evolution ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotCache.Refresh   ' Protection de la feuille ActiveSheet.Protect

---

en espérant que quelqu'un puisse m'aider, c'est très important. Merci d'avance.

j'ai une piste. Il semblerait que ce soit du au fait que les effacement et ajout de données dans la feuille extraction fait changer la plage utilisée pour la création des tableaux croisés dynamiques. En effet si je fait un clique droit sur mon tableau croisé dynamique et que je prend l'assistant pour changer la plage utilisée, ensuite je peux à nouveau mettre à jour.
Le problème c'est que j'aimerai automatisé cette action, que l'utilisateur ne soit pas obligé d'aller mettre à jour la plage utilisé à la main.
Comment déclare-t-on en VBA la plage utilisée par un PivotTables? 8O

Merci d'avance.

Salut,
J'ai déjà rencontré ce genre de souci.

Ce qu'il faut c'est lorsque tu changes l'extract c'est de ne surtout pas enlever la ligne de titres (les entetes).
Deuxieme chose, tu ne dois pas définir le nombre de lignes cad lorsque la première fois que tu fais le TDC a la main ben tu dois selectionner ta source uniquement sur des colonnes entières.
Cela marchera peu importe le nombre de lignes dans ton extract.

J'espère que ca va t'aider.

Ah ok, effectivement j'enlevais les entêtes pour les remettre puisqu'elles sont dans l'extract.
Je vais tester plusieurs fois cette méthode avant de venir passer le post en résolu.
Merci encore pour ton aide précieuse.