Discussion :

[Chnoucky]

Bonjour à tous,

je suis confronté à un problème de taille.

Pendant une macro (copier collers, formules, tris et graphiques), mon classeur grandit sans cesse, et prend de plus en plus de mémoire vive. Cette mémoire ne se vide jamais.

Si l'on ferme tous les classeurs, la mémoire d'excel ne se vide pas.. (or, j'aimerais redémarrer une nouvelle macro, plus ou moins identique => problème de mémoire).

Quelqu'un sait comment vider cette mémoire, sans fermer excel ?

Merci

illustration : Comme en témoigne cette image, excel vide fait 800 mb en mémoire vive..

[Krovax]

Bonjour
dans un premier temps tu peux essayer d'éviter les copier/coller ou les faire en directe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
range("A1")=Range("B2")
range("B2").copy Range("A1")

Ou essayer de vider le presse papier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.cutcopymode=false

Si tu utilise des varaible tableau essaye de diminuer leur taille ou do'ptimiser le stockage.

Mais vu que tu ne dit pas ce que fait ton code difficile de t'aider, j'aurais tendance a dire "800Mb, bah ca va c'est pas grand chose", mais on ne travail sans doute pas sur les même chose

Essaye d'expliquer un peu plus ce que fait ta macro quelle sont les partie gourmande,etc.

[Chnoucky]

Le PC utilisé est un serveur de ma boite (quadri processeur, env 6Gb de ram,..), d'où ma surprise lorsque je vois les "compile error : out of memory".
Le problème n'est pas les 800 Mb. C'est qu'ils s'ajoutent à la procédure qui est assez lourde. Explications:

La macro est une grande boucle (environ 3000 itérations). Le but est de générer un document avec graphiques pour chaque élément d'une base de donnée.

3 Fichiers :
A- base de donnée
B- document de calcul
C- résultats

1- (A) Filtre de la base de donnée, copie des résultats dans le document de calcul (ouvert et fermé à chaque itération, pour gagner de l'espace). (suivi d'un autofilter).
2- (B) Formula arrays dans une feuille copiée à chaque fois.
3- (B) Copie spéciale valeurs des résultats, qui sont liés à un graphique.
4- (C) Copie de la feuille dans un nouveau fichier (et permettre de réouvrir le document de calcul)
5- Lorsqu'un fichier a plus de 100 feuilles, il en crée un nouveau et ferme le précédent.

A chaque copier coller, je vide le presse papier.
J'ai également essayé de copier tous les graphiques en jpg après calculs pour les supprimer par après. Mais c'était contre productif.
Toutes les variables sont déclarées (option.explicit).

Bref, je pense avoir fait de mon mieux pour maximiser la mémoire..

Certaines actions augmentent la mémoire utilisée. Notamment DELETE, puisqu'il charge en mémoire toutes les données (en cas d'annulation). Ces données ne se vident jamais. (essayez de deleter une colonne ayant 50 000 lignes, vous verrez 200mb s'ajouter à la mémoire sans pouvoir la purger).
Vous connaissez d'autres actions qui ont le meme effet (filtre ? formulaarray ? Paste values ?)

Merci de votre aide!

[patricktoulon]

j ai rencontré ce probleme et en fet je crois que c'est tout simplement une instance d'exel qui reste alumé alors ala fin de ton script ou de la derniere fonction
tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

active workbook.close si tu a sauvegarder avant

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activeworkbook.save

ou alors si tu veux le sauvegarder sous un autre nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activeworkbook.save as

et une fenetre windows va te demander de rentrer le nom et l endroit ou tu veux l enregistrer

voila pour moi ca a resolu le probleme

[cafeine]

Hello,

on dirait que tu as une fuite de mémoire ...
Ma recommandation :
1- Utilise ta base de données comme telle, avec un objet DAO (en général le gain de performance est très important car Excel ne charge que les données et pas les formats ou formules). Accessoirement ça évite à Excel d'ouvrir le fichier.
2- Nettoie bien ton code des objets instanciés avec des

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set VariableObjet = Nothing

3- Teste ton code sur un extrait de ta base 200 enregistrements avant d'attaquer les 3000.

voici un exemple pour le point 1, sachant que tu peux créer un SQL plus complexe pour avancer tes calculs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
dim db As Object
dim dbEng As Object
dim rs as Object
 
set db = CreateObject("DAO.DBEngine.36")
set dbEng = db.OpenDatabase("chemin complet du fichier DB", False, False, "Excel 8.0;HDR=NO;")
set rs = dbEng.OpenRecordset("SELECT * FROM [Feuil1$]")
ThisWorkbook.ActiveSheet.Range("A1").CopyFromRecordset
rs.close
Set rs = nothing
Set dbEng = nothing
Set db = nothing