[Excel] Alléger des fichiers Résolu

Question

Bonjour,

Dans un souci d'économiser de la place sur le serveur de la société pour laquelle je bosse, tout les moyens sont bons pour réduire la taille des fichiers.

Je viens de trouver une centaine de fichiers Excel, qui pèsent chacun 50-55 Mo. Ils contiennent tous des tableaux croisés dynamiques ainsi que de très nombreuses liaisons entre eux.

Pour réduire la taille, je sais que je peux "casser" les liaisons pour ne garder que les valeurs, et faire pareil pour les tableaux croisés. Hors je me vois pas passer les fichiers un à un pour faire cela.

Existerait il un utilitaire qui s'en charge ou Excel saurait il le faire tout seul comme un grand ?

En vous souhaitant une bonne journée.

Alex_Mansion82 · Answer

Bon ben j'ai trouvé de moi-même la solution :

Sub Nettoie()
Dim Sht As Worksheet

For Each Sht In Worksheets

    Sht.Select
    Sht.Cells.Copy
    Sht.Cells.PasteSpecial (xlPasteValuesAndNumberFormats)

Next Sht

ActiveWorkbook.Save

End Sub

[Excel] Alléger des fichiers

1 réponse

Newsletters