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