XL 2010 Réduction d'une taille maximale d'un fichier excel 2010

rima21

XLDnaute Junior
Bonjour,

SVP j'ai un petit problème, je n'arrive pas à envoyer un fichier de taille 97700 ko, J'ai essayé de réduire sa taille mais en vain, Que vous me conseillez?
Je précise que:
> j'ai réduis la largeur des colonnes,Et garder que les plus utiles..Mais rien n'est changé!!
> J'ai essayé de le compresser mais le problème persiste.
Merci
 

eriiic

XLDnaute Barbatruc
Bonjour,

tu as fait Ctrl+fin sur chaque feuille pour voir la dernière cellule utilisée et supprimé les lignes/colonnes vides ?
Il faut enregistrer en suivant pour voir la différence de taille.
Evite aussi les formats sur des colonnes/lignes complètes
eric
 

job75

XLDnaute Barbatruc
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, ZINEB91, eriiiiic, chris, job75, dg62

ZINEB91
A toutes fins utiles
Essayez les deux macros présentes dans ce fil de 2011
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonsoir le fil, ZINEB91, eriiiiic, chris, job75, dg62

ZINEB91
A toutes fins utiles
Essayez les deux macros présentes dans ce fil de 2011
;) quitte à écarter la poussière ...(2004 tempus fugit ...:()
voir aussi :
https://groups.google.com/d/msg/microsoft.public.fr.excel/sseIHUdV_6M/URU5MBCCxHoJ
:)
 

Staple1600

XLDnaute Barbatruc
Bonsoir Modeste geedee

Il faut avoir un compte Google pour voir le contenu de ton lien ?
(ou peut-être activer javascript?)
Parce que moi, sur mon PC, je ne vois que la page d'accueil de G..gl. groupes

PS; La seconde macro du fil que je cite était de Laurent Longre
Ce ne serait pas la même par hasard ?
(Cela m'éviterait d'activer javascript ;))
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonsoir Modeste geedee

Il faut avoir un compte Google pour voir le contenu de ton lien ?
(ou peut-être activer javascript?)
Parce que moi, sur mon PC, je ne vois que la page d'accueil de G..gl. groupes

PS; La seconde macro du fil que je cite était de Laurent Longre
Ce ne serait pas la même par hasard ?
(Cela m'éviterait d'activer javascript ;))
nous parlons en effet de ce même Laurent Longre ;)
:mad:Ahhhh google ... !
oui il faut javascript activé:(
et les placards invasifs de publicités ciblées
il doit rester une autre possibilité d'accéder à ce newsgroup via news://news.aioe.org/microsoft.public.fr.excel
mais il faut un browser gérant les newsgroups

voici le code publié , l'original doit etre plus ancien encore...
VB:
Sub Nettoie()
'Laurent Longre mpfe, mise en forme GeeDee
    Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String,
Avant As Double, plage As Range
    On Error Resume Next
    Calc = Application.Calculation    ' ---- mémorisation de l'état de
recalcul
    '------------------------------------------------------------
    MsgBox "Pour le classeur actif  : " _
         & Chr(10) & ActiveWorkbook.FullName _
         & Chr(10) & "dans chaque feuille de calcul" _
         & Chr(10) & "recherche la zone contenant des données," _
         & Chr(10) & "réinitialise la dernière cellule utilisée" _
         & Chr(10) & "et optimise la taille du fichier Excel", _
           vbInformation, _
           "d'après LL par Gee...@m6net.fr"
    '-------------------------------------------------------------
    MsgBox "Taille initiale de ce classeur en octets" _
         & Chr(10) & FileLen(ActiveWorkbook.FullName), _
           vbInformation, ActiveWorkbook.FullName
    '------------------------------------------------------------
    With Application
        .Calculation = xlCalculationManual
        .StatusBar = "Nettoyage en cours..."
        .EnableCancelKey = xlErrorHandler
        .ScreenUpdating = True
    End With
    '-------------------- le traitement
    For Each Sht In Worksheets
        Avant = Sht.UsedRange.Cells.Count
        Application.StatusBar = Sht.Name & "-" & Sht.UsedRange.Address
        '-------------------Traitement de la zone trouvée
        If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then
            Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
            '----------------Suppression des lignes inutilisées
            If Not DCell Is Nothing Then
                Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Delete
                Set DCell = Nothing
                Set DCell = Sht.Cells.Find("*", , , , xlByColumns,
xlPrevious)(, 2)
                '----------------Suppression des colonnes inutilisées
                If Not DCell Is Nothing Then Sht.Range(DCell,
Sht.[IV1]).EntireColumn.Delete
            End If
            Rien = Sht.UsedRange.Address
        End If
        ActiveWorkbook.Save
        '---------------------Message pour la feuille traitée
        MsgBox "Nom de la feuille de calcul :" _
             & Chr(10) & Sht.Name _
             & Chr(10) & Format(Sht.UsedRange.Cells.Count / Avant, "0.00%")
& " de la taille initiale", _
               vbInformation, ActiveWorkbook.FullName
    Next Sht
    '--------------------Message fin de traitement
    MsgBox "Taille optimisée de ce classeur en octets " & Chr(10) &
FileLen(ActiveWorkbook.FullName), _
           vbInformation, _
           ActiveWorkbook.FullNameActive
    '--------------------
    Application.StatusBar = False
    Application.Calculation = Calc
End Sub
 

Discussions similaires