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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] mise en page lente et j'comprends pas

GeekAlf

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 :

Sub MeP()
'
' MeP Macro
' Macro enregistrée le 02/02/2012
'
' Touche de raccourci du clavier: Ctrl+Maj+P
'
Rows("2:2" ).Select
ActiveWindow.FreezePanes = True
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "&""Verdana,Normal""&9&F" & Chr(10) & "&A"
.CenterHeader = ""
.RightHeader = _
"&""Verdana,Normal""Imprimé le &""verdana,Gras""&D&""Verdana,Normal""" & Chr(10) & "à &""Verdana,Gras italique""&T"
.LeftFooter = "&Z&F"
.CenterFooter = ""
.RightFooter = "Page &""Arial,Gras""&P&""Arial,Normal"" / &N"
.LeftMargin = Application.InchesToPoints(0.118110236220472)
.RightMargin = Application.InchesToPoints(0.236220472440945)
.TopMargin = Application.InchesToPoints(0.354330708661417)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.118110236220472)
.FooterMargin = Application.InchesToPoints(0.236220472440945)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

Publicité

kiki29

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

GeekAlf

Bonjour Kiki29,

je vais regarder, merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
[VBA-Excel] Copier-coller sélection à partir d'une recherche	Macro VBA Powerpoint - Suppression de plusieurs slides
VBA et écriture en APPEND d'un fichier	[VBA] [Excel 2010] Retourner un tableau de tableaux dynamiques
[VB/VBA/VBS] Sélection d'une partie des graphiques d'une feuille	[VBA] Recherche de fichiers et opérations entre ces fichiers
Scripts ouverture page web avec mot de passe	[VBA Excel] listbox activex variable
Macro VBA Powerpoint pour supprimer plusieurs liens sélectionnés	[Excel][VBA] Ajouter plusieurs séries à un plot nb données variables
Plus de sujets relatifs à : [VBA] mise en page lente et j'comprends pas

Page générée en 0.049 secondes