Fomat paysage !?

[MANON]

Bonjour à tous !

Un p’ti problème …. Pouvez vous m’aider ?

Quelle serait la ligne de commande à écrire dans la Big macro ci-dessous, pour qu'au final mon document se mette en format paysage au lieu de portrait ?
Ce qui serait génial, ça serait de me l’écrire à l’endroit ou il faut qu’elle soit !

Merci et excellente journée à vous tous !

Manon

**********************************************************


Sub CONTROLE_GGP()
'
' FICHIER_CCG Macro
' Macro enregistrée le 18/10/02
'
ChDrive "M"
ChDir "M:\Production Dpt\0 EXTERNE PROD\E-MAIL résultats productions"
NOMFICH1 = Application.GetOpenFilename("Fich.texte,*.")

'

Workbooks.OpenText FileName:=NOMFICH1, Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(28, 2), Array(34, 2), Array(40, 1), Array(58, 1), Array(76, 2), Array(82, 2))
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
ActiveCell.FormulaR1C1 = "MTO"
Range("B1").Select
ActiveCell.FormulaR1C1 = "D1"
Range("C1").Select
ActiveCell.FormulaR1C1 = "D1"
Range("D1").Select
ActiveCell.FormulaR1C1 = "CHASSIS"
Range("E1").Select
ActiveCell.FormulaR1C1 = "ENGINE"
Range("F1").Select
ActiveCell.FormulaR1C1 = "PALETTE"
Range("G1").Select
ActiveCell.FormulaR1C1 = "INC INVOICE"
Range("F1").Select
Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
Columns("D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit

ActiveWindow.SmallScroll Down:=0

RECH_DBLE

Range("A1").Select
Selection.CurrentRegion.Select
Selection.Name = "BDD"



ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"BDD", TableDestination:="", TableName:= _
"Tableau croisé dynamique2"
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("PALETTE"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _
Array("MTO", "PALETTE")
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("CHASSIS"). _
Orientation = xlDataField
Columns("A:A").EntireColumn.AutoFit





Range("A1").Select
ActiveCell = NOMFICH1
End Sub

Sub RECH_DBLE()
'
' RECH_DOUBLE Macro
' Macro enregistrée le 21/07/99 par JPG
'

'Tri de la sélection par MTO CHASSIS
Range("A1").Select
'Selection.CurrentRegion.Select
'Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Range("A1").Select


Selection.CurrentRegion.Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom




' Initialisation de la variable
MTO = ActiveCell

CHASSIS = "CHASSIS"
MTO1 = ""
CHASSIS1 = ""

' On part du haut
Do Until MTO = ""
'On descend d'une case
ActiveCell.Offset(1, 0).Range("A1").Select
MTO = ActiveCell
' MsgBox (MTO)
'On se décale de 4 cases pour chercher le chassis
ActiveCell.Offset(0, 3).Range("A1").Select
CHASSIS = ActiveCell
' MsgBox (CHASSIS)

If MTO = MTO1 And CHASSIS = CHASSIS1 Then

TT = CVar(CHASSIS)
Beep
Beep

MsgBox ("DOUBLON :" & MTO & "-" & TT)
End If
CHASSIS1 = CHASSIS
MTO1 = MTO
'On revient à gauche sur la même ligne
ActiveCell.Offset(0, -3).Range("A1").Select
Loop

End Sub

 

[jmt0]

Salut,

pour le format paysage
ActiveSheet.PageSetup.Orientation = xlLandscape

pour le format porrtrait
.Orientation = xlPortrait

 

[MANON]

Merci jmt0, ça marche !

Bonne journée !

Manon.