Problème de mémoire

[Calvus]

Bonjour le forum,

J'ai un fichier qui fait environ 6 méga octets......en début d'année.
A la fin de l'année, j'arrive à près de 40 méga octets !

Inutile de vous dire à quel point ça rame !

Malgré la reprise du'une copie de mon fichier, pour tests, et la suppression de quasiment toutes les données, de plusieurs feuilles etc, j'arrive péniblement à réduire la taille à 22 méga octets.

Quelqu'un a t'il une idée de ce qu'il se passe ?
Et comment réduire la taille de mon fichier ?

Merci

 

[phlaurent55]

Bonjour Calvus,

ci-dessous un lien vers un sujet semblable ( l y en a d'autres sur le forum)
https://www.excel-downloads.com/threads/comment-réduire-le-poids-dun-fichier-excel.233298/#post-1489930

et un autre:
https://www.excel-downloads.com/threads/taille-fichier.213575/#post-1342462

à+
Philippe

 

[Calvus]

Bonjour Philippe,

Merci, je vas regarder ça.

 

[Calvus]

Merci Philippe !

Une sacré cure ce fichier de Laurent Longre !

Mon fichier rame toujours, mais je crois savoir pourquoi.
Je vais faire les recherches nécessaires, mais au moins je suis passé de 40 Mo à 8 et quelques !

Fantastique comme régime !

Bonne soirée.

 

[cp4]

Bonsoir Calvus, Phlaurent55,

Je ne me souviens plus où j'avais trouvé ce code.
Je l'ai testé sur un gros fichier, après exécution de la macro son poids vraiment baissé.

Sub NettoyerFeuilles()
'Exécuter avec Ctrl+m
    Dim Current As Worksheet
On Error Resume Next
    For Each Current In ThisWorkbook.Worksheets
        With Sheets(Current.Name)
            .Range(Cells.SpecialCells(xlCellTypeLastCell).EntireRow, .Cells.Find("*", , , , xlByRows, xlPrevious).EntireRow).Offset(1, 0).Delete
            .Range(Cells.SpecialCells(xlCellTypeLastCell).EntireColumn, .Cells.Find("*", , , , xlByColumns, xlPrevious).EntireColumn).Offset(0, 1).Delete
        End With
    Next
    ActiveWorkbook.Save
    MsgBox "Nettoyage terminé!", vbInformation, "Reduction Taille Fichier"

End Sub

Bonne soirée.

 

[Calvus]

Bonsoir,

Merci Cp4 !

 

[Modeste geedee]

bonsour®

Bonsoir,

Merci Cp4 !

15 ans dèjà ...
https://groups.google.com/forum/#!m...earchin/microsoft.public.fr.excel/nettoie.xls
voir aussi :
https://web.archive.org/web/20150908041639/http://www.xcell.excelabo.net:80/acceleration_vba

 

[Calvus]

Bonjour à tous,

Une sacré cure ce fichier de Laurent Longre !

et un autre:
https://www.excel-downloads.com/threads/taille-fichier.213575/#post-1342462

ATTENTION, après vérification, le fichier m'a effacé pas mal de colonnes !
A utiliser avec prudence donc.
Pour ma par, je vais tout refaire manuellement, plus sûr...

voir aussi :
https://web.archive.org/web/20150908041639/http://www.xcell.excelabo.net:80/acceleration_vba

Merci pour ce lien intéressant.

Bonne journée.

 

[MJ13]

Bonjour à tous

j'avais déjà eu ce genre de problèmes.

Il me semble qu'une fois toutes les feuilles supprimées, sauf la plus importante, j'avais enregistré le classeur au format .xls, puis remis au format .xlsm, le poids du fichier ensuite était redevenu normal.

 

[cp4]

Bonsoir,

Merci Cp4 !

Pas de quoi, mais je n'ai eu de retour.
J'utilise assez souvent ce code qui me donne satisfaction.
Surtout après avoir effacé une grande plage de cellules.

 

[Calvus]

Re,

Il me semble qu'un fois toutes les feuilles supprimées, sauf la plus importante, j'avais enregistré le classeur au format .xls, puis remis au format .xlsm, le poids du fichier ensuite était redevenu normal.

Astuce à tester,merci.

Pas de quoi, mais je n'ai eu de retour.

C'est vrai. Alors, j'ai testé ton code, mais je n'ai pas eu de changement.
J'ai donc tout fait manuellement comme je l'ai dit. Ca m'a pris un peu de temps, mais mon fichier est descendu à moins de 4 Mo.

Bonne journée.

 

[DoubleZero]

Bonjour à toutes et à tous,

Calvus , je ne peux m'empêcher de poser deux questions sttes...

Le fichier contient-il beaucoup d'images, boutons et autres formes ?

As-tu, parfois, fait appel au copier-coller de certaines plages de cellules (qui dupliquerait les "zimages", aux mêmes emplacements) ?

A bientôt

 

[Staple1600]

Bonsoir le fil, le forum

Une suggestion en passant
Que se passe-t-il si on enregistre le fichier en *.xlsb ?

 

[Calvus]

Hello 00 , Staple , le forum,

Quelques boutons en effet. Je pense que ça prend pas mal de place, mais bon, jen ai besoin.

Mais ça va maintenant comme je le disais plus haut.

Que se passe-t-il si on enregistre le fichier en *.xlsb ?

Pas essayé. Qu'est ce que ça devrait faire ?

A bientôt

 

[Staple1600]

Re

Essaies et on reparle ensuite