Comment alléger un fichier?

anthoYS · 17 Avril 2010

Bonjour,

J'ai actuellement un fichier lourd de plus de 7 Mo. Qu'est-ce qui prend le plus de poids? Et le problème est qu'il ralentit beaucoup maintenant, je veux dire, il y a un temps de recherche après des données soient rentrés...

J'ai une cinquantaine d'onglets colorés... Avec certains qui ont beaucoup de lignes... Est-ce les images (peu nombreuses)?
Je sais qu'il y a 2-3 mois il ne pesait que 3,5 Mo...:confus
D'ou vient alors cet alourdissement soudain?

Merci à ceux qui ont une idéeed:

JNP · 17 Avril 2010

Re : Comment alléger un fichier?

Salut Anthoys ,
Ton fichier est en compatible 97-2003 (XLS) ou en 2007 (XSLX, XLSM) ?
Si tu es passé de 2007 vers du compatible 97-2003, tu multiplies ton poids de fichier par 2 minimum... Car 2007 est de l'XML compressé ZIP, contrairement au XLS qui est du natif.
Bon WE

anthoYS · 17 Avril 2010

Re : Comment alléger un fichier?

Re,

Non, il s'agit d'un fichier Excel 2007 avec extension "xlsm".

@+

Brigitte · 17 Avril 2010

Re : Comment alléger un fichier?

Bonjour,

Une piste : l'appli KARCHER que tu peux trouver ici

https://www.excel-downloads.com/threads/karcher.111515/

ou bien ici, tibo avait zippé une xla KARCHER :

https://www.excel-downloads.com/threads/graph-12-mois-glissants.90126/

Je ne sais plus s'il s'agissait de la même chose.

Bon courage. Fais une copie avant, bien sûr, cela tombe sous le sens.

Edit : bisous Jean Noel.

Hulk · 17 Avril 2010

Re : Comment alléger un fichier?

Hello Anthoys, Jnp

Sur toutes les feuilles, fais Edition/Atteindre/Cellules/Objets/Ok

Là, tous les objets (images, lignes, formes) qu'il y a dans la feuille seront sélectionnés... Peut-être il y en a en trop.

Edit : Coucou Brigitte.. Biz

anthoYS · 17 Avril 2010

Re : Comment alléger un fichier?

Re à tous et merci pour vos réponses,

Brigitte, pour "Karcher" peut-on l'éxécuter même si le fichier est ouvert?

Merci, @+

anthoYS · 17 Avril 2010

Re : Comment alléger un fichier?

Re,

J'ai lancé Karcher, voici ce qui se passe en PJ (capture d'écran)

A+

Brigitte · 17 Avril 2010

Re : Comment alléger un fichier?

Re,

Euh je l'ai utilisé, mais y a bien longtemps ; aussi, je ne me souviens plus.

Je pense que c'est tout à fait normal que cela te demande d'activer les macros, cela fait souvent ca avec des macros venues d'un autre pc, si on est au niveau de sécurité HAUT.

Maintenant, je crois que cette appli a été utilisée par plein de gens (voir le nombre de téléchargements) et que David ne l'aurait pas laissée, si danger.

Regarde encore ici ce qui en est dit :

https://www.excel-downloads.com/threads/gestion-de-memoir-sous-excel-et-vba.30317/

Merci Gérard pour le Freeware Karcher.xla. Entre nous, ce petit programme fait des miracles, je l’avoue! Mon application a passé de 10MK a 400K. Sérieusement ce truc est fabuleux.

Toute fois, quand j’ajoute des nouvelles données dans une ligne dans n’importe quelle feuille et que je fais Ctrl-s (enregistrer) alors la taille de mon fichier revient, quasiment a 8000Kb.

Il ne dit pas dans le descriptif, Frédéric Lhommé s'il faut laisser le fichier ouvert ou fermé ?

Peux pas t'aider plus, malheureusement.

Bisous Antonio.

anthoYS · 17 Avril 2010

Re : Comment alléger un fichier?

Merci Brigitte, mais rien n'est dit à ce sujet...

Je vais tenter ouvert.
Je vous tient au courant...

anthoYS · 17 Avril 2010

Re : Comment alléger un fichier?

Re à tous,

Voici ce qu'indique le Karcher maintenant!

J'avais fermé le précédent...

Mais les macros étaient inactivables...

@+

Brigitte · 17 Avril 2010

Re : Comment alléger un fichier?

Re,

Je suis bien trop incompétente pour t'aider, mais peut être que tu as ouvert la xla et aussi que tu l'utilises en même temps, peut être que ton fichier est "caché" (mais je le trouve pas dans excel 2007, car dans 2003, c'est une histoire de fenêtre/afficher ou masquer un fichier).

Si qqun passe par là et sait utiliser Karcher, il sera le bienvenu, moi je peux pas plusss, désolée, vraiment.

A BIENTOT

néné06 · 17 Avril 2010

Re : Comment alléger un fichier?

Bonjour Anthoys, Bonjour le Forum

J'avais le meme probleme de prise de poids par les photos.
Regarde la discussion ou j'ai trouvé une petite solution.
Dans néné06
---- Copie "image1" de feuil Excel sur bureau--

Cordialement

Néné06

guigui76 · 17 Avril 2010

Re : Comment alléger un fichier?

Une solution que j'ai trouvé hier sur un forum désolé pour la source, je ne l'ai plus.
Je l'ai utilisé sur un fichier de 25 mo, il est passé à 11 mo.
bref du bonheur.

Code:

Sub Nettoie()

Dim Sht As Worksheet, DCell As Range
Dim DxCell As Range
Dim Calc As Long, Rien As String

On Error Resume Next
Calc = Application.Calculation

With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours"
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = False
End With

For Each Sht In Worksheets
If Sht.UsedRange.Address <> "$A$1" Or _
Not IsEmpty(Sht.[A1]) Then
Set DCell = Sht.Cells.Find("*", _
, xlFormulas, , xlByRows, xlPrevious)(2)
If Not DCell Is Nothing Then
Sht.Range(DCell, Sht.Cells([A:A].Count, 1)). _
EntireRow.Clear
Set DCell = Nothing
Set DxCell = Sht.Cells.Find("*", , xlFormulas, _
, xlByColumns, xlPrevious)(2)

If Not DxCell Is Nothing Then
Sht.Range(DxCell.Offset(, 1), Sht.[IV1]). _
EntireColumn.Clear
End If
Rien = Sht.UsedRange.Address
End If
End If
Next Sht
Application.StatusBar = False
Application.Calculation = Calc
MsgBox "g"
End Sub

anthoYS · 17 Avril 2010

Re : Comment alléger un fichier?

Merci guigui76.

anthoYS · 18 Avril 2010

Re : Comment alléger un fichier?

Re,

Après avoir tester cette macro, voilà le résultat :
De 7 Mo mon fichier est passé à 9,06 Mo!

Genial!!

Merci à ceux qui auront idée de comment je vais pouvoir alléger ce fichier.

Comment alléger un fichier?

anthoYS

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Brigitte

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Pièces jointes

Brigitte

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Pièces jointes

Brigitte

XLDnaute Barbatruc

néné06

XLDnaute Accro

guigui76

XLDnaute Occasionnel

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Discussions similaires