Discussion :

[mathspountz]

Bonjour à tous,

J'ai fait quelques tests sur un de mes scripts qui mettait plus de 30 secondes à s'exécuter. Pour voir d'où venait le problème j'ai chronométré le script en enlevant certaines opérations à chaque fois. Apparemment, les lignes de mise en page sont responsables de 75% du temps d'exécution du script. Il passe à moins de 7 secondes si je supprime les lignes .PageSetup.Orientation et .PageSetup.PrintArea (il y a parfois 100 pages à traiter).

Ma question : avez-vous des astuces effectuer les taches de .PageSetup.Orientation et .PageSetup.PrintArea d'une manière plus rapide.

J'ai peut-être trouvé lors de mes recherches un premier élément de réponse : Apparemment ces deux fontions doivent communiquer avec le pilote de l'imprimante, ce qui ralenti le script.
Si cela est vrai, Comment l'éviter ?

Merci à ceux qui auront le courage de tout lire.

[Jean-Philippe André]

Hello,

la piste la plus souvent recommandée pour la mise en page est d'utiliser les macros XL4

http://www.developpez.net/forums/d13...cution-longue/

[mathspountz]

Merci pour la piste, mais je n'arrive pas à la mettre en pratique...
Si j'essaie simplement de mettre ma mise en page en mode paysage sur la sélection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub test()
ThisWorkbook.ActiveSheet.Range("A1:E6").Select
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,Landscape,,,,,,,,,,)"
End Sub

Ca passe sans erreur, mais quand je fais "aperçu avant impression", la mise en page est toujours en mode portrait...
J'ai essayé également avec xlLandscape mais rien... Y a-t-il quelquechose que je ne saisie pas ?

J'ai trouvé les infos sur les arguments ici : http://www.mrexcel.com/forum/excel-q...age-setup.html