Booster macro impression

T

totor

Guest
Bonjour le forum,

j'ai fait une macro pour imprimer plusieurs onglet d'un même fichier excel. Mon problème, elle est vrziment longure. Sauriez vous s'il existe un moyen de booster l'impression?

Merci à tous

Bonne journée

Victor

Ma macro :
Sub Impression_syntheses()
'
' Impression_syntheses Macro
'
'

'
Sheets('P&L YTD').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('P&L YTD 05').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('PAGE4').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$b$6:$N$40'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$Q$6:$AC$40'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$AF$6:$AR$40'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('PAGE4 05').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$b$6:$n$40'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$q$6:$ac$40'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$af$6:$ar$40'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('PAGE4B').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$b$4:$n$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$q$4:$ac$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$af$4:$ar$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('PAGE4C').Select
ActiveSheet.PageSetup.PrintArea = '$A$69:$n$79'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$b$4:$n$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$q$4:$ac$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$af$4:$ar$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$au$17:$bg$47'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$bj$17:$bv$47'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('PAGE4B qtr').Select
ActiveSheet.PageSetup.PrintArea = '$b$5:$n$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$q$5:$ac$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$af$5:$ar$39'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('DSO').Select
ActiveSheet.PageSetup.PrintArea = '$A$1:$i$20'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('Waterfall').Select
ActiveSheet.PageSetup.PrintArea = '$A$1:$k$50'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('ITO').Select
ActiveSheet.PageSetup.PrintArea = '$a$6:$i$30'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('ITOB').Select
ActiveSheet.PageSetup.PrintArea = '$a$6:$i$31'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$k$6:$s$31'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('DPO').Select
ActiveSheet.PageSetup.PrintArea = '$a$6:$i$25'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$a$34:$i$56'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = '$a$60:$i$82'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('HW').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets('Capexp05').Select
ActiveSheet.PageSetup.PrintArea = '$a$1:$W$21'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


End Sub
 
Trier par date Trier par votes
M

Minick

XLDnaute Impliqué
Salut,

Vu le nombre de page à imprimer, cela semble plutot normale que ce soit long.

Combien de temps dure la procedure?
Y a t il beaucoup de formules temps de calcul quand tu fais [F9]?

Tu peux gagner un peu de temps en ne selectionnant pas les feuilles
et en figeant l'affichage...

Essai comme ca pour voir ce que cela donne:
Code: 
Sub Impression_syntheses()
'
' Impression_syntheses Macro
'
'

'
    Application.ScreenUpdating = False
    
    Sheets('P&L YTD').PrintOut Copies:=1, Collate:=True
    Sheets('P&L YTD 05').PrintOut Copies:=1, Collate:=True
    
    With Sheets('PAGE4')
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$b$6:$N$40'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$Q$6:$AC$40'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$AF$6:$AR$40'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('PAGE4 05')
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$b$6:$n$40'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$q$6:$ac$40'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$af$6:$ar$40'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('PAGE4B')
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$b$4:$n$39'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$q$4:$ac$39'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$af$4:$ar$39'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('PAGE4C')
        .PageSetup.PrintArea = '$A$69:$n$79'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$b$4:$n$39'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$q$4:$ac$39'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$af$4:$ar$39'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$au$17:$bg$47'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$bj$17:$bv$47'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('PAGE4B qtr')
        .PageSetup.PrintArea = '$b$5:$n$39'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$q$5:$ac$39'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$af$5:$ar$39'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('DSO')
        .PageSetup.PrintArea = '$A$1:$i$20'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('Waterfall')
        .PageSetup.PrintArea = '$A$1:$k$50'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('ITO')
        .PageSetup.PrintArea = '$a$6:$i$30'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('ITOB')
        .PageSetup.PrintArea = '$a$6:$i$31'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$k$6:$s$31'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    With Sheets('DPO')
        .PageSetup.PrintArea = '$a$6:$i$25'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$a$34:$i$56'
        .PrintOut Copies:=1, Collate:=True
        .PageSetup.PrintArea = '$a$60:$i$82'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    Sheets('HW').PrintOut Copies:=1, Collate:=True
    
    With Sheets('Capexp05')
        .PageSetup.PrintArea = '$a$1:$W$21'
        .PrintOut Copies:=1, Collate:=True
    End With
    
    Application.ScreenUpdating = True
End Sub
@+
 
Vote positif 0 Vote négatif

Discussions similaires

A
  • Résolu(e)
XL 2010 Impression par VBA
Réponses
4
Affichages
401
Appo1985
A
kadelmalin
  • Question
XL 2010 Impression plusieurs plages
Réponses
4
Affichages
399
kadelmalin
kadelmalin
gh4
  • Résolu(e)
XL 2010 annuler impression sans blocage macro
2
Réponses
15
Affichages
918
job75
job75
B
  • Résolu(e)
XL 2016 concours / Macro imprimer le texte au maximum selon les pages
Réponses
10
Affichages
550
berru76
B
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
525
berru76
B
F
  • Résolu(e)
XL 2019 Amélioration du code avec une boucle
Réponses
4
Affichages
816
Fanrs
F
H
  • Question
XL 2016 Macro excel 2010 vs 2016
Réponses
11
Affichages
562
hutch57
H
tactic6
  • Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
228
tactic6
tactic6
jeanmi
  • Résolu(e)
XL 2010 Imprimer en plusieurs PDF l’onglet Excel actif à chaque saut de page
2 3
Réponses
30
Affichages
3 K
jeanmi
jeanmi
Usine à gaz
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
365
Usine à gaz
Usine à gaz

Membres actuellement en ligne

9 membres et 98 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 672
Messages
2 090 776
Membres
104 664
dernier inscrit
jth