Ajuster impression page entiere dans macro

Bonjour,

Dans une macro, j'ai demandé d'enregistrer une feuille dans un répertoire donné

lorsque j'appelle ensuite ce fichier pour l'imprimer

la feuille d'impression apparait sur plusieurs pages

je voudrai dire à la macro qu'elle l'ajuste sur une page

je lui indiquée ceci, mais ça ne marche pas

' parametrage de l'impression

Range("A1:M59").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$59"

Application.PrintCommunication = True

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$59"

merci de votre aide

Bonjour,

ne change pas printarea, par défaut c'est toutes la plage occupée.

Pour ajuster sur 1 feuille :

With Worksheets("Sheet1").PageSetup
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With

eric

merci

désolé

ca ne fonctionne pas

j'ai indiqué ceci

parametrage de l'impression

Range("A1:M59").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$59"

With Worksheets("Sheet1").PageSetup

.Zoom = False

.FitToPagesTall = 1

.FitToPagesWide = 1

End With

voici l’aperçu

mais "Sheet1" c'est un exemple, il faut mettre le vrai nom de la feuille.

Et merci d'utiliser la balises Code quand tu en mets.