Bonjour,

Dans une de mes macros, je souhaite faire en sorte que mon document puisse être imprimer en papier ou PDF sur une seule feuille avec un ajustement automatique. Je n'ai aucun soucis pour l'impression mais je fais toujours l'ajustement à la main comme le montre le code exemple suivant :

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("Feuille1").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
J'ai pu lire pas mal de solutions et même une sur ce forum mais aucune n'a fonctionne avec mon Excel 2013.
Pourriez vous m'aider s'il vous plait ?