O
Oliv
Guest
Bonjour à tous,
J'ai un problème avec la mise en page de plusieurs feuilles excel en format paysage.
Je veux créer une macro qui transforme la mise en page des feuilles qui ont un format portrait en un format paysage et quand j'execute la macro, le traitement est très long.
J'aimerais bien savoir s'il y a un autre code VBA que celui que j'utilise:
With ActiveSheet.PageSetup
.PrintTitleRows = '$6:$6'
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = ''
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 70
.PrintErrors = xlPrintErrorsDisplayed
End With
Merci à tous
J'ai un problème avec la mise en page de plusieurs feuilles excel en format paysage.
Je veux créer une macro qui transforme la mise en page des feuilles qui ont un format portrait en un format paysage et quand j'execute la macro, le traitement est très long.
J'aimerais bien savoir s'il y a un autre code VBA que celui que j'utilise:
With ActiveSheet.PageSetup
.PrintTitleRows = '$6:$6'
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = ''
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 70
.PrintErrors = xlPrintErrorsDisplayed
End With
Merci à tous