[VBA] mise en page lente et j'comprends pas

mise en page lente et j'comprends pas [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 09-12-2014 à 18:07:12    

bonjour,
 
j'ai une macro de mise en page, que j'avais faite sous excel 2003 et je suis passé en excel 2010.
mais elle est extrêmement longue, elle met 36 secondes.
je ne vois pas pourquoi, car quand je débogue en pas à pas, je ne trouve pas l'endroit ou ça traine.
 
si vous avez une idée...
 
merci
 

Code :
  1. Sub MeP()
  2. '
  3. ' MeP Macro
  4. ' Macro enregistrée le 02/02/2012
  5. '
  6. ' Touche de raccourci du clavier: Ctrl+Maj+P
  7. '
  9.     Rows("2:2" ).Select
  10.     ActiveWindow.FreezePanes = True
  11.     With ActiveSheet.PageSetup
  12.         .PrintTitleRows = "$1:$1"
  13.         .PrintTitleColumns = ""
  14.     End With
  15.     ActiveSheet.PageSetup.PrintArea = ""
  16.     With ActiveSheet.PageSetup
  17.         .LeftHeader = "&""Verdana,Normal""&9&F" & Chr(10) & "&A"
  18.         .CenterHeader = ""
  19.         .RightHeader = _
  20.         "&""Verdana,Normal""Imprimé le &""verdana,Gras""&D&""Verdana,Normal""" & Chr(10) & "à &""Verdana,Gras italique""&T"
  21.         .LeftFooter = "&Z&F"
  22.         .CenterFooter = ""
  23.         .RightFooter = "Page &""Arial,Gras""&P&""Arial,Normal"" / &N"
  24.         .LeftMargin = Application.InchesToPoints(0.118110236220472)
  25.         .RightMargin = Application.InchesToPoints(0.236220472440945)
  26.         .TopMargin = Application.InchesToPoints(0.354330708661417)
  27.         .BottomMargin = Application.InchesToPoints(0.196850393700787)
  28.         .HeaderMargin = Application.InchesToPoints(0.118110236220472)
  29.         .FooterMargin = Application.InchesToPoints(0.236220472440945)
  30.         .PrintHeadings = False
  31.         .PrintGridlines = False
  32.         .PrintComments = xlPrintNoComments
  33.         .CenterHorizontally = True
  34.         .CenterVertically = True
  35.         .Orientation = xlLandscape
  36.         .Draft = False
  37.         .PaperSize = xlPaperA4
  38.         .FirstPageNumber = xlAutomatic
  39.         .Order = xlDownThenOver
  40.         .BlackAndWhite = False
  41.         .Zoom = False
  42.         .FitToPagesWide = 1
  43.         .FitToPagesTall = False
  44.         .PrintErrors = xlPrintErrorsDisplayed
  45.     End With
  46. End Sub

Reply

Marsh Posté le 09-12-2014 à 18:07:12   

Reply

Marsh Posté le 10-12-2014 à 02:16:44    

Salut, il y avait cela : http://www.developpez.net/forums/d [...] ost3303071 pour les versions <= 2007 .  
A partir d'Excel 2010

Option Explicit
 
Sub TstImpression()
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .Orientation = xlLandscape
        .PaperSize = xlPaperLetter
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True
End Sub


Message édité par kiki29 le 10-12-2014 à 07:11:08

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 10-12-2014 à 11:34:30    

Bonjour Kiki29,
 
je vais regarder,  merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed