L
lesuisse
Guest
Bonjour à toutes et à tous,
Le code suivant me permet d'ajuster automatiquement les feuilles de mon classeur.
Sauf que le nombre de lignes est très importants et qu'avec la fonction FitToPage, Excel me ramène tout sur une page alors que je souhaite simplement que la largeur soit sur une page mais pas la longueur.
Quelqu'un a-t-il une idée ??
Merci bcp
Lesuisse suisse juste aujourd'hui
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.22)
.RightMargin = Application.InchesToPoints(0.26)
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Le code suivant me permet d'ajuster automatiquement les feuilles de mon classeur.
Sauf que le nombre de lignes est très importants et qu'avec la fonction FitToPage, Excel me ramène tout sur une page alors que je souhaite simplement que la largeur soit sur une page mais pas la longueur.
Quelqu'un a-t-il une idée ??
Merci bcp
Lesuisse suisse juste aujourd'hui
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.22)
.RightMargin = Application.InchesToPoints(0.26)
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With