[Excel] Alléger des fichiers

Résolu
Alex_Mansion82 Messages postés 370 Date d'inscription   Statut Membre Dernière intervention   -  
Alex_Mansion82 Messages postés 370 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

1 réponse

Réponse 1 / 1
Alex_Mansion82 Messages postés 370 Date d'inscription   Statut Membre Dernière intervention   94
 
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
0