imprimer

job75

XLDnaute Barbatruc

• 12 Décembre 2010

• #2

Re : imprimer

Bonjour apdf1,

Code:

ActiveSheet.PageSetup.Orientation = _
IIf(MsgBox("Imprimer en mode Paysage ?", 4) = 7, xlPortrait, xlLandscape)

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2010

• #3

Re : imprimer

Re,

Autre manière :

Code:

With ActiveSheet 'ou feuille paramétrée
  .PageSetup.Orientation = IIf(.UsedRange.Width < .UsedRange.Height, xlPortrait, xlLandscape)
End With

A+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 12 Décembre 2010

• #4

Re : imprimer

Bonjour Job75,

Je te remerci d'avoir répondu, j'ai essayé ton code mais sa ne marche pas?
je joint mon fichier pour voir si j'ai bien rentré le code

A+

Max

 

Pièces jointes

• Imprimer.xlsm

  22.7 KB · Affichages: 49
• Imprimer.xlsm

  22.7 KB · Affichages: 52
• Imprimer.xlsm

  22.7 KB · Affichages: 49

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2010

• #5

Re : imprimer

Re,

Moi être sur Excel 2003 alors attendez un XLDnaute qui pourra ouvrir le fichier.

Mais les codes que j'ai donnés sont élémentaires, ils devraient fonctionner sur toutes les versions.

A+

 

Dernière édition: 12 Décembre 2010

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Décembre 2010

• #6

Re : imprimer

Bonjour à tous,
Re Job 😎,

Si tu souhaites poursuivre ta programmation...

A+ à tous

 

Pièces jointes

• Imprimer.xls

  44.5 KB · Affichages: 49
• Imprimer.xls

  44.5 KB · Affichages: 49
• Imprimer.xls

  44.5 KB · Affichages: 51

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2010

• #7

Re : imprimer

Bonsoir JC,

Et merci pour le fichier.

Je vois que notre ami a collé mon code sans essayer de comprendre le moins du monde ce qu'il faisait.

Je ne vais quand même pas programmer 2 lignes de code plus qu'évidentes.

Surtout si l'on utilise l'enregistreur de macro...

A+

 

Vote positif 0 Vote négatif