MAJ multi-TCD via VBA

Bonjour à Tous,

Je développe actuellement un fichier Excel dans lequel J'importe dans une des feuilles des données issues d'une application de mon entreprise. Jusque là no pb!

De là, j'ai 6 TCD sur d'autres feuilles qui "moulinent" sur les données importées. Je précise que j'ai crée un premier TCD et qu'ensuite j'ai copié la feuille x fois afin d'éviter de saturer la mémoire tampon).

J'ai terminé par un interface sur une feuille avec un ComboBox qui selon la sélection met à jour l'ensemble des TCD avec une macro.

Hors là où est le pb c'est que certain TCD ne se mettent pas à jours au niveau des données. Pourtant ma plage de données est fixe et plus grande que l'import afin d'éviter de louper des lignes.

Sachant qu'après l'import j'actualise automatiquement tous les TCD

Quelqu'un a une idée?

D'avnce merci à tous

Bonjour.

Est-ce que les TCD qui semblent ne pas se mettre à jour :
n'ont pas les bonnes valeurs
ou n'ont pas la bonne sélection des champs de pages?

Est-ce que tu arrives à mettre à jour "à la main" ces TCD récalcitrants?

Cordilement,

PGZ

Bonjour,

En fait ils se mettent à jour. Les données ne sont pas les bonnes.
Et parfois le choix est inexistant dans la liste en manuel.
C'est vrai que je force un peu les TCD cependant tous les choix que je demande sont obligatoirement présent dans les données sources.

Pourquoi parles-tu des champs de page?

Je pense que je vais refaire un essai complet en repartant des données importées et je vous tiens au courant.

Bonne nuit

Bonjour,

Je travaille également sur un modèle de ce genre.


J'ai une table importé de donnée extérieur que je mets en forme à l'aide d'un TCD.

En amont de mon TCD, je détermine la plage de donnée avec ce code

Code:

---

1 2	Plage = Sheets("Data").Range(Cells(2, 1), Cells(Sheets("Data").Range("A65536").End(xlUp).Row, _ Sheets("Data").Range("IV2").End(xlToLeft).Column)).Address

---

Ensuite j'insère Plage dans l'entête de ma routine TCD

Code:

---

1 2 3

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ Plage).CreatePivotTable TableDestination:=Sheets("Balance_Géné").Range("A1"), TableName:= _ "Tableaucroisédynamique2"

---

au moins tu auras déjà une plage dynamique


par ailleurs, j'ai déjà utilisé une actualiation de tous tes TCD par une seule ligne de commande, je ne sais pas si c'est cette routine que tu utilises.

en gros quelques chose comme ça : PivotTable refresh ALL


quelqu'un pourra te donner la syntaxe exacte si il le faut