[Excel] Alléger des fichiers
Résolu/Fermé
Alex_Mansion82
Messages postés
370
Date d'inscription
lundi 21 décembre 2009
Statut
Membre
Dernière intervention
24 octobre 2012
-
17 févr. 2010 à 11:50
Alex_Mansion82 Messages postés 370 Date d'inscription lundi 21 décembre 2009 Statut Membre Dernière intervention 24 octobre 2012 - 17 févr. 2010 à 14:27
Alex_Mansion82 Messages postés 370 Date d'inscription lundi 21 décembre 2009 Statut Membre Dernière intervention 24 octobre 2012 - 17 févr. 2010 à 14:27
A voir également:
- [Excel] Alléger des fichiers
- Liste déroulante excel - Guide
- Alléger un pdf - Guide
- Formule excel - Guide
- Fusionner des fichiers excel - Guide
- Si et excel - Guide
1 réponse
Alex_Mansion82
Messages postés
370
Date d'inscription
lundi 21 décembre 2009
Statut
Membre
Dernière intervention
24 octobre 2012
94
17 févr. 2010 à 14:27
17 févr. 2010 à 14:27
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
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