Voici une petite optimisation faite à la volée, non testée, mais qui devrait tourner sans souci
Code :
- Sub juin()
- [D16].Select
- With ActiveSheet.PivotTables("Tableau croisé dynamique2" )
- .PivotCache.Refresh
- .PivotFields("mois" ).CurrentPage = "6"
- End With
- [p3].Copy
- Sheets("Invreliability 01" ).[B34].PasteSpecial xlValues
- Application.CutCopyMode = False
- Sheets("TCD" ).[p4].Copy
- Sheets("Invreliability 01" ).[B43].PasteSpecial xlValues
- Application.CutCopyMode = False
- Sheets("TCD" ).[p5].Copy
- Sheets("Invreliability 01" ).[F34].PasteSpecial xlValues
- Application.CutCopyMode = False
- Sheets("TCD" ).[p6].Copy
- Sheets("Invreliability 01" ).[F39].PasteSpecial xlValues
- Application.CutCopyMode = False
- Sheets("TCD" ).[p7].Copy
- Sheets("Invreliability 01" ).[F43].PasteSpecial xlValues
- End Sub
|
Si tu veux réduire la taille du fichier en poids, les documents Office gardent une trace des anciennes modifs, du coup, l'idéal c'est de faire un copier coller des cellules de chaque feuille dans un nouveau classeur, de renommer les feuilles pareil, et de copier/coller également le contenu de tes modules
edit : [F43] correspond à range("F43" )
Les application.cutCopyMode sont rarement indispensable en effet ^^
Message édité par devil_k le 26-10-2007 à 19:22:20