[XL-2003] Augmentation taille fichier par modification de ms query

[euskaran]

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.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
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,

[Daniel.C]

Bonjour,

A ta place, je créerai un classeur initial ou un modèle de classeur qui me servirait chaque mois.

[78chris]

Bonjour

Les fichiers mensuels représentent-ils un mois ou un cumul ?

Ne serait-il pas plus simple que les requêtes Access gèrent le glissement de date sans changer de noms ?

[euskaran]

Bonjour à vous,

@ Daniel: en effet j'y avais pensé mais il peut m'arriver de modifier pendant l'année le rapport qui n'est pas un simple fichier de reporting mais un outils de pilotage.

@78chris: chaque fichier représente un mois non cumulé. Et je ne peux le faire glissant car nous avons besoin du passé et du futur sur le mois.

[Ormonth]

Bonjour,

essayes d'enregistrer ton fichier en .xlsb et dis nous la taille obtenue.
observes aussi les temps de chargement et de sauvegarde....

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier