[VBA] Remplacer ZOOM par largeur de page

[TheLio]

Salut les xldiens et et diennes,
à quelques jours de fêtes j'espère que vous allez bien et que l'abus de foie gras ne vous pèse pas trop.

Ma question la voici, j'aimerais remplacer dans ma macro qui gère les mise en page la fonction zoom ci dessous:

.Zoom = 67

par "ajuster à une page en largeur " et "" en hauteur mais je ne trouve point l'objet concerné.
Merci
A++
TheLio

 

[pierrejean]

Re : [VBA] Remplacer ZOOM par largeur de page

bonjour Thelio

A tester:

    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

 

[TheLio]

Re : [VBA] Remplacer ZOOM par largeur de page

Toujours aussi rapide, toujours aussi efficace,
M E R C I Pierrejean,

je l'ai adapté ainsi:

.FitToPagesWide = 1
.FitToPagesTall = False

A++
TheLio

 

[TheLio]

Re : [VBA] Remplacer ZOOM par largeur de page

Re, étonnament, il reste en zoom 60 avec ceci:

With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = "Etabli le : &D"
        .CenterHeader = "&F"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "Page &P"
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.03)
        .RightMargin = Application.InchesToPoints(0.03)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.15)
        .FooterMargin = Application.InchesToPoints(0.15)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .FitToPagesWide = 1
        .FitToPagesTall = False

    End With
End Sub

Mais je ne vois pas ou j'ai fait la boulette.

A++
TheLio

 

[TheLio]

Re : [VBA] Remplacer ZOOM par largeur de page

Corrigé tout seul, il fallait ajouter

[COLOR="Red"].Zoom = False[/COLOR]
.FitToPagesWide = 1
.FitToPagesTall = False

Merci A++
TheLio

 

[pierrejean]

Re : [VBA] Remplacer ZOOM par largeur de page

Re

a tester:

   ....
   .BlackAndWhite = False
   [COLOR=red].Zoom = False[/COLOR]
   .FitToPagesWide = 1
   ........

largement apres la bataille !!!!