Augmentation taille fichier par modification de ms query

Bonjour à vous,

Dans un cadre professionnel, j'ai créé un fichier excel comportant plusieurs tcd (lié en ms query sur des requêtes access) dans différents onglets afin de piloter notre activité mensuelle.

Chaque début de mois, je créé un nouveau fichier et modifie chaque lien ms query afin que les tcd ciblent les requêtes du mois suivant (en remplacement au mois précédent). Tout cela fonctionne correctement hormis le fait que le fichier excel s'alourdit de plus en plus au fil des mois (passant de 14 mo en janvier à plus de 200mo en décembre!).

J'ai tenté d'utiliser diverses macros type karcher ou bien SupprimerElementsAbsents (voir ci dessous) mais rien ne modifie la taille.

Sub SupprimerElementsAbsents()

Dim tcd As PivotTable

Dim feuille As Worksheet

For Each feuille In ActiveWorkbook.Worksheets

For Each tcd In feuille.PivotTables

tcd.PivotCache.MissingItemsLimit = xlMissingItemsNone

tcd.PivotCache.Refresh

tcd.UpDate

Next tcd

Next feuille

End Sub

Merci par avance de votre aide,

bonjour Euskaran le forum

je ne comprend pas pourquoi tu as des soucis mais déjà tu pourrais recréer un fichier et réutiliser tes requêtes.

De plus tu as mis que tu utilisais des requêtes access, non tu utilises des requêtes Ms query sur des fichiers access, c'est bien cela?

dans l'attente de te lire

a+

papou