Discussion :

[GuyRo]

Bonjour,

Tout d'abord un peu expliquer mon environnement: 3 fichiers contenant des macros, les fichiers vont de 60kB à >400MB
Pour ma dernière macro et afin de faciliter le traitement j'ouvre manuellement mes 3 fichiers.
J'exécute ma boucle dans ma macro, ce qui lui prends entre 1min30 et 9min, en fin de boucle je pose la question afin
de savoir si une boucle suivante doit être exécutée, si oui je suis reparti pour les x minutes.
Si la réponse est non je dois sauver mes trois fichiers et sortir d'excel.

C'est là que j'ai un soucis, je ne sais s'il y a un délais pour l'écriture d'un fichier car:
1. à deux reprises j'ai eu un fichier de corrompu, impossible de le sauver (et ce n'étais pas le plus volumineux, c'est le fichier
de taille moyenne)
2. je ne sors pas de l'application

Ce que j'ai comme fin de code, en résumé:

VariableFichierGros.Close SaveChanges:=True --> fichier de 422MB actuellement
VariableFichierMoyen.Close SaveChanges:=True --> fichier de 4.5 MB actuellement
VariableFichierPetit.Close SaveChanges:=True --> fichier de 60 KB actuellement

et finalement, juste avant le End Sub :

Code :

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

  Application.Quit

Je ne sais par ou commencer mes recherches, alors si quelqu'un a de l'expérience ou des conseils, merci beaucoup.
Guy

[Jean-Philippe André]

Salut,

premiere suggestion, diminuer ton plus gros fichier de 400Mo en passant par le format xlsb
https://jpcheck.developpez.com/tutor...binaires-xlsb/

Seconde suggestion, effectuer un Save dans un premier temps, et faire ensuite un Close False (tu auras une étape de plus dans le code, mais si ca plante sur l'une ou l'autre, tu auras de quoi faire pour savoir de quoi il s'agit.

Troisieme suggestion, ton Application.Quit n'est pas toujours la solution la plus pertinente. En effet, que faire si en plus des fichiers ouverts par ta macro et ton fichier de code tu as d'autres fichiers encore qui sont aussi ouverts ?

L'idée ici serait potentiellement de créer une xlApp dans laquelle tu ouvres les 3 classeurs, et qui fermera uniquement cette application...

[GuyRo]

Salut Jean-Philippe,

Merci pour tes infos, je ne connaissais pas cet autre type de fichier. Je viens d'essayer et mon fichier a perdu quasiment 90% de sa taille, il est passé de 420MB à 48MB.
En ce qui concerne la xlApp, connais pas ... non plus ... et je regardes cela de plus près aussi.

PS: Il semble que je bute sur certaines limites d'excel après une petite centaine de boucles de ma macro, donc je vais chercher une autre
solution

Merci encore.
Guy

[Jean-Philippe André]

Salut,

xlApp c'est juste un nom de variable L'idée est de déclarer une variable de type Excel.Application et de travailler avec

Code :

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

1
2
3
4
5
Dim xlApp as Excel.Application
Set xlApp = New Excel.Application
 
...
xlApp.Quit