Discussion :

[Korleone]

Bonjour,

Je souhaite grâce à une macro VBA ajuster l'impression d'une page afin qu'elle ne nécessite qu'une seule feuille.
En gros, j'aimerais un code qui fasse exactement la même chose que : Fichier/Mise en Page/Page/Ajuster X page(s) en largeur sur Y en hauteur.

Merci d'avance.

[spileo]

Bonsoir,

"Cet exemple montre comment configurer Microsoft Excel de sorte qu'il imprime la feuille Sheet1 exactement sur une page en hauteur et en largeur."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
with lafeuille.pagesetup
<div style="margin-left:40px">
.zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1</div>end with

A toi de paramétrer ces propriétés en fonction de ce que tu veux faire.

[Korleone]

Merci beaucoup !

[ThéoRasDesPâquerette]

Bonjour,

Je cherche à faire de manière autonome l'ajustement de la feuille excel avant l'impression papier ou PDF.
Mon code ci dessous est celui que j'utilise pour l'apercus avant impression, seulement après avoir lu et essayé les méthodes vu sur le net, je n'arrive pas à automatiser l'ajustement qui est fait manuellement dans mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Ajuster()
 
    Worksheets("Tabelle1").Activate
 
    With ActiveSheet.PageSetup
    .PrintArea = "$A$1:$F$132"
    .PaperSize = xlPaperA4
    .LeftMargin = Application.InchesToPoints(1.25)
    .RightMargin = Application.InchesToPoints(0.5)
    .TopMargin = Application.InchesToPoints(0.45)
    .BottomMargin = Application.InchesToPoints(0.45)
    .Zoom = 55
    .Orientation = xlPortrait
 
    ActiveSheet.PrintPreview
    End With
 
End Sub

Le code présent plus haut dans ce fil de discussion ne compile pas sur mon Excel 2013

Pourriez vous m'aider s'il vous plait ?