anthooooony
XLDnaute Occasionnel
Bonjour à tous,
J'aurais besoin d'aide sur un code que j'ai... siyouplait
J'ai trois onglets, trois tcd, les deux premiers on la même présentation, même nombre de colonne, une colonne avec des commentaires en F:F qui necessite un traitement(deja fait), et le troisième onglet est plus petit, moins d'info.
Le probleme que j'ai, est que les deux premiers onglets on un bonne mise en page, et le troisième qui est différent est tout petit à l'affichage et à l'impression.
Voici un bout de code : Normalement mon fichier n'aura que 3 onglets, est il possible de lui dire de faire abstraction des spécificités de mise en page de colonne sur le dernier onglet?
Sub test()
Application.DisplayAlerts = False
Sheets(Array("Agence ALSACE", "Agence ALSACE (2)", "Agence ALSACE (3)")).Copy
ActiveWorkbook.SaveAs "N:\Litiges\Test Automat\Litiges Agence ALSACE.xlsx"
Dim i As Integer
With ActiveWorkbook
For i = 1 To Sheets.Count
With Sheets(i).Cells
.Columns.AutoFit
.Rows.AutoFit
End With
Next i
ActiveWorkbook.Worksheets.Select
For Each xworksheet In ActiveWorkbook.Worksheets
xworksheet.Select
Range("F:F").ColumnWidth = 220
Range("F:F").WrapText = True
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$4"
.PrintArea = "$A$4:$H$51"
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0)
.FitToPagesWide = 1
.FitToPagesTall = 1
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.Orientation = xlLandscape
.Zoom = False
End With
Un grand merci d'avance
J'aurais besoin d'aide sur un code que j'ai... siyouplait
J'ai trois onglets, trois tcd, les deux premiers on la même présentation, même nombre de colonne, une colonne avec des commentaires en F:F qui necessite un traitement(deja fait), et le troisième onglet est plus petit, moins d'info.
Le probleme que j'ai, est que les deux premiers onglets on un bonne mise en page, et le troisième qui est différent est tout petit à l'affichage et à l'impression.
Voici un bout de code : Normalement mon fichier n'aura que 3 onglets, est il possible de lui dire de faire abstraction des spécificités de mise en page de colonne sur le dernier onglet?
Sub test()
Application.DisplayAlerts = False
Sheets(Array("Agence ALSACE", "Agence ALSACE (2)", "Agence ALSACE (3)")).Copy
ActiveWorkbook.SaveAs "N:\Litiges\Test Automat\Litiges Agence ALSACE.xlsx"
Dim i As Integer
With ActiveWorkbook
For i = 1 To Sheets.Count
With Sheets(i).Cells
.Columns.AutoFit
.Rows.AutoFit
End With
Next i
ActiveWorkbook.Worksheets.Select
For Each xworksheet In ActiveWorkbook.Worksheets
xworksheet.Select
Range("F:F").ColumnWidth = 220
Range("F:F").WrapText = True
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$4"
.PrintArea = "$A$4:$H$51"
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0)
.FitToPagesWide = 1
.FitToPagesTall = 1
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.Orientation = xlLandscape
.Zoom = False
End With
Un grand merci d'avance
