[XL-2007] Un gros fichier rame avec excel 2007

[bart64]

Bonjour,

J'ai un fichier XSLX de 74 Mo, et tout rame énormément lorsque je suis dedans.

J'ai essayé les solutions suivantes:
1/ Générer un nouveau fichier en ne gardant que les valeurs, et pas les formules => ca ne change rien

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub CopieFeuilles()
Dim n%, F As Object, Sh As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier TOTO.xls existe déjà
Set F = ThisWorkbook.Sheets(Array("affaire1", "affaire3")) 'feuilles à copier
With Application
  n = .SheetsInNewWorkbook
  .SheetsInNewWorkbook = F.Count
  Workbooks.Add 'nouveau document
  .SheetsInNewWorkbook = n
End With
With ActiveWorkbook
  n = 0
  For Each Sh In F
    n = n + 1
    With .Sheets(n)
      Sh.Cells.Copy .Cells
      .UsedRange = .UsedRange.Value
      .Name = Sh.Name
    End With
  Next
  .SaveAs "C:\Users\Alain\Desktop\" & "TOTO.xls" '"C:\" & "TOTO.xls" 'plus facile à tester
  .Close
End With
End Sub

2/ Limiter la taille de la feuille

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub limite()
'Réduit la taille du fichier en limitant la taille de la feuille à la plage 
de cellule
' effectivement utilisée (en supprimant la trace d'anciennes sélections 
plus larges)
For i = 1 To Sheets.Count
    Sheets(i).Activate
    [a1].Select
    ActiveSheet.UsedRange
    Next i
    Sheets(1).Activate
End Sub

La taille a réduit, mais c'est toujours aussi lent!

Pourriez-vous me donner une astuce ? J'ai des feuilles énormes, je ne peux même pas les ouvrir pour réduire la taille des colonnes, pour que tout rentre dans une page à l'impression.

Ou bien ... y a-t-il un moyen de forcer excel (ou PDF creator) pour imprimer toutes les feuilles, et que chacune rentre dans une seule page A4 ?

Merci beaucoup pour votre aide.

[Philippe JOCHMANS]

Bonjour

Les causes peuvent être multiples :

Le calcul automatique est-il enclenché ? Si oui, regarde en le désactivant (Bouton Office/Options Excel/Formules).

As-tu beaucoup d'images à charger ?

Est-ce que c'est la même chose sur un autre PC avec une meilleure configuration ? Car cela peut venir de la Ram du tien.

Voici quelques pistes, et il y en a sûrement d'autres que je n'ai pas en tête.

Philippe

[bart64]

Bonjour,

Merci beaucoup pour votre réponse. J'ai donc enlevé le calcul automatique des formules, mais rien ne change.
En ce qui concerne mon PC, il est tout neuf, 64 bits, 4 processeurs et 4Go de RAM. Donc j'ose espérer que ce n'est pas le PC qui est le goulot d'étranglement !

Mais malheureusement, la première manip' n'a pas fonctionné

Merci d'avance

[carden752]

Bonjour,

Quelques autres pistes :
Est-ce que le document est sur le réseau ou sur ton poste en local?
Est-ce qu'il y a des compléments actifs exécutés sur Excel?
Est-ce qu'il y a eu des mises à jours récentes effectuées?
Quels sont les versions service pack + mise à jour de sécurité d'Office installées?