Impression pages pairs - impairs sous Excel

Bonjour Pascal,

Voici une procédure proposée par Frédéric Sigonneau :

'----------------------------------
Sub PagesPairesOuImpaires()
Dim i&, NbPages&, rep, PremierePage&
rep = MsgBox("Cliquer sur :" & vbLf & _
"- Oui pour imprimer les pages paires" & vbLf & _
"- Non pour imprimer les pages impaires" & vbLf & _
"- Annuler pour quitter sans rien faire.", vbYesNoCancel)
If rep = vbCancel Then Exit Sub
PremierePage = IIf(rep = vbYes, 2, 1)
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = PremierePage To NbPages Step 2
ActiveSheet.PrintOut From:=i, To:=i, Preview:úlse
Next i
End Sub

Ou, pour n'imprimer que certaines pages :
'----------------------------------
Sub SelectionDePages()
Dim i&, Pages$, ArrPages
Pages = _
InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _
"1;2;3;12;14;25;33", "Pages à imprimer")
ArrPages = Split(Pages, ";")
For i = LBound(ArrPages) To UBound(ArrPages)
x=Clng(ArrPages(i))
ActiveSheet.PrintOut From:=x, to:=x, Preview:úlse
Next i
End Sub
'----------------------------------


Salutations!



"Pascal Bouchard" <addme@mitan.ca> a écrit dans le message de news:ujbcd.115648$y%6.2018922@weber.videotron.net...
Je veux faire de l'impression recto-verso et, avec mon imprimante, la seule
façon est d'imprimer les pages paires au recto et ensuite les pages impaires
au verso.
Est-il possible de le faire sous Excel? (C'est possible sous Word)
Merci
Pascal


---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.772 / Virus Database: 519 - Release Date: 2004-10-04