Sous Excel 2003..

j'ai une feuille qui est assez longue qui, quand je fais aperçu avant impression, donne 3 pages Pas de pb.

Je souhaiterais mettre la 1° "en normal" (cad portrait), et la 2° en paysage.

((je précise : je ne souhaite pas mettre la 2° et 3° page dans une autre feuille...)

Est-ce possible, si oui comment fait-on ?

tout il est dit ...

A l'aide ....

Bonjour,

Commence par sélectionner la zone Paysage et Fichier/définir et lui donner 1 nom
sélectionne la zone qui doit être en portrait et donne-lui 1 autre nom

Lorsque tu demandes l'impression d'une zone, vérifie que tu as bien la mme orientation pour ta feuille avec Mise en page et cliquer sur le bon bouton rond

Il faudra bien sur lancer tes 2 impressions séparément

sourisdeservice a écrit :

Bonjour,

Commence par sélectionner la zone Paysage et Fichier/définir et lui donner 1 nom
sélectionne la zone qui doit être en portrait et donne-lui 1 autre nom

Lorsque tu demandes l'impression d'une zone, vérifie que tu as bien la mme orientation pour ta feuille avec Mise en page et cliquer sur le bon bouton rond

Il faudra bien sur lancer tes 2 impressions séparément

concernant ta dernière remarque, pas tout a fait d'accord avec toi, en utilisant l'enregistreur de macro il peut lancer l'impression en une seule fois

bon dimanche à vous

Bonjour tout le monde,

Ci-joint un fichier de démonstration : http://www.cijoint.fr/cjlink.php?file=cj200902/cijYpzlfRH.xls sur lequel j'ai mis un bouton "Imprime" qui en une seule fois, fait les actions suivantes :

• La 1ère page s'imprime en portrait
• La 2ème page s'imprime en paysage
• La 3ème page s'imprime en portrait

La macro utilisée est la suivante :

Sub Imprime()
'Impression de la 1ère page en portrait
'--------------------------------------
Range("A1:C6").Select 'définition de la plage de cellules constituant la 1ère page
ActiveSheet.PageSetup.PrintArea = "$A$1:$C$6" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression

'Impression de la 2ème page en paysage
'-------------------------------------
Range("A7:I9").Select 'définition de la plage de cellules constituant la 2ème page
ActiveSheet.PageSetup.PrintArea = "$A$7:$I$9" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlLandscape 'mise au format paysage
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression

'Impression de la 3ème page en portrait
'--------------------------------------
Range("A10:F13").Select 'définition de la plage de cellules constituant la 3ème page
ActiveSheet.PageSetup.PrintArea = "$A$10:$F$13" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression

Range("A1").Select

End Sub

Bonjour,

à Vieuxmonsieur,

Tout à fait d'accord pour l'utilisation d'une macro et un seul clic
MAIS, personnelement, je fonctionne toujours comme si j'avais des débutants en face de moi et les macros c'est déjà un niveau plus haut