Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment
faire pour imprimer les pages paires et, ensuite, les pages impaires
séparément dans Excel (comme dans Word)?
Merci
Pascal
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test() nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)") For impair = 1 To nbp Step 2 ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _ Copies:=1, Collate:=True Next impair Msgbox "Il faut retourner le paquet" If nbp > 1 Then For pair = 2*(ent(nbp/2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next impair End If End Sub
@+ FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test()
nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For impair = 1 To nbp Step 2
ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _
Copies:=1, Collate:=True
Next impair
Msgbox "Il faut retourner le paquet"
If nbp > 1 Then
For pair = 2*(ent(nbp/2)) To 2 Step -2
ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _
Copies:=1, Collate:=True
Next impair
End If
End Sub
@+
FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment
faire pour imprimer les pages paires et, ensuite, les pages impaires
séparément dans Excel (comme dans Word)?
Merci
Pascal
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Sub test() nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)") For impair = 1 To nbp Step 2 ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _ Copies:=1, Collate:=True Next impair Msgbox "Il faut retourner le paquet" If nbp > 1 Then For pair = 2*(ent(nbp/2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next impair End If End Sub
@+ FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
sabatier
même en retournant la ramette, comme te l'a soufflé FxM dans la Msgbox de sa proc? jps
"Pascal Bouchard" a écrit dans le message de news:ZeVcd.57580$
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
même en retournant la ramette, comme te l'a soufflé FxM dans la Msgbox de sa
proc?
jps
"Pascal Bouchard" <forum@mitan.ca> a écrit dans le message de
news:ZeVcd.57580$ct3.1042498@wagner.videotron.net...
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment
faire pour imprimer les pages paires et, ensuite, les pages impaires
séparément dans Excel (comme dans Word)?
Merci
Pascal
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
même en retournant la ramette, comme te l'a soufflé FxM dans la Msgbox de sa proc? jps
"Pascal Bouchard" a écrit dans le message de news:ZeVcd.57580$
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Pascal Bouchard
J'ai fait une macro avec cette routine et elle bloque à la ligne For pair = 2*(ent(nbp/2)) To 2 Step -2 et un message apparaît disant: "Erreur de compilation: Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable. Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau? Merci, Pascal
Dans un message précédent, FxM a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test() nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)") For impair = 1 To nbp Step 2 ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _ Copies:=1, Collate:=True Next impair Msgbox "Il faut retourner le paquet" If nbp > 1 Then For pair = 2*(ent(nbp/2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next impair End If End Sub
@+ FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
J'ai fait une macro avec cette routine et elle bloque à la ligne
For pair = 2*(ent(nbp/2)) To 2 Step -2
et un message apparaît disant: "Erreur de compilation:
Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable.
Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau?
Merci,
Pascal
Dans un message précédent, FxM <nullos@greuchmeu.ici> a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test()
nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For impair = 1 To nbp Step 2
ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _
Copies:=1, Collate:=True
Next impair
Msgbox "Il faut retourner le paquet"
If nbp > 1 Then
For pair = 2*(ent(nbp/2)) To 2 Step -2
ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _
Copies:=1, Collate:=True
Next impair
End If
End Sub
@+
FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel,
comment faire pour imprimer les pages paires et, ensuite, les pages
impaires séparément dans Excel (comme dans Word)?
Merci
Pascal
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
J'ai fait une macro avec cette routine et elle bloque à la ligne For pair = 2*(ent(nbp/2)) To 2 Step -2 et un message apparaît disant: "Erreur de compilation: Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable. Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau? Merci, Pascal
Dans un message précédent, FxM a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test() nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)") For impair = 1 To nbp Step 2 ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _ Copies:=1, Collate:=True Next impair Msgbox "Il faut retourner le paquet" If nbp > 1 Then For pair = 2*(ent(nbp/2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next impair End If End Sub
@+ FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Jacky
Bonsoir
A defaut de FxM 2 petites erreurs (ent & impair) se sont glissées accidentellement dans son code.
Remplace cette partie du code
For pair = 2 * (Int(nbp / 2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next pair
(Pas testé à l'impression) non plus JJ
"Pascal Bouchard" a écrit dans le message de news:muWcd.58178$
J'ai fait une macro avec cette routine et elle bloque à la ligne For pair = 2*(ent(nbp/2)) To 2 Step -2 et un message apparaît disant: "Erreur de compilation: Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable. Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau? Merci, Pascal
Dans un message précédent, FxM a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test() nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)") For impair = 1 To nbp Step 2 ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _ Copies:=1, Collate:=True Next impair Msgbox "Il faut retourner le paquet" If nbp > 1 Then For pair = 2*(ent(nbp/2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next impair End If End Sub
@+ FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Bonsoir
A defaut de FxM
2 petites erreurs (ent & impair) se sont glissées accidentellement dans son
code.
Remplace cette partie du code
For pair = 2 * (Int(nbp / 2)) To 2 Step -2
ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _
Copies:=1, Collate:=True
Next pair
(Pas testé à l'impression) non plus
JJ
"Pascal Bouchard" <forum@mitan.ca> a écrit dans le message de
news:muWcd.58178$ct3.1099019@wagner.videotron.net...
J'ai fait une macro avec cette routine et elle bloque à la ligne
For pair = 2*(ent(nbp/2)) To 2 Step -2
et un message apparaît disant: "Erreur de compilation:
Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable.
Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau?
Merci,
Pascal
Dans un message précédent, FxM <nullos@greuchmeu.ici> a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test()
nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For impair = 1 To nbp Step 2
ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _
Copies:=1, Collate:=True
Next impair
Msgbox "Il faut retourner le paquet"
If nbp > 1 Then
For pair = 2*(ent(nbp/2)) To 2 Step -2
ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _
Copies:=1, Collate:=True
Next impair
End If
End Sub
@+
FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel,
comment faire pour imprimer les pages paires et, ensuite, les pages
impaires séparément dans Excel (comme dans Word)?
Merci
Pascal
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
A defaut de FxM 2 petites erreurs (ent & impair) se sont glissées accidentellement dans son code.
Remplace cette partie du code
For pair = 2 * (Int(nbp / 2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next pair
(Pas testé à l'impression) non plus JJ
"Pascal Bouchard" a écrit dans le message de news:muWcd.58178$
J'ai fait une macro avec cette routine et elle bloque à la ligne For pair = 2*(ent(nbp/2)) To 2 Step -2 et un message apparaît disant: "Erreur de compilation: Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable. Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau? Merci, Pascal
Dans un message précédent, FxM a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test() nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)") For impair = 1 To nbp Step 2 ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _ Copies:=1, Collate:=True Next impair Msgbox "Il faut retourner le paquet" If nbp > 1 Then For pair = 2*(ent(nbp/2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next impair End If End Sub
@+ FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Misange
Bonjour Au moins 2 solutions ici : http://www.excelabo.net/xl/imprimer.php#rectoverso http://www.excelabo.net/xl/imprimer.php#paireimpair
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 18/10/2004 21:57:
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Bonjour
Au moins 2 solutions ici :
http://www.excelabo.net/xl/imprimer.php#rectoverso
http://www.excelabo.net/xl/imprimer.php#paireimpair
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
on 18/10/2004 21:57:
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment
faire pour imprimer les pages paires et, ensuite, les pages impaires
séparément dans Excel (comme dans Word)?
Merci
Pascal
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Bonjour Au moins 2 solutions ici : http://www.excelabo.net/xl/imprimer.php#rectoverso http://www.excelabo.net/xl/imprimer.php#paireimpair
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
on 18/10/2004 21:57:
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
FxM
Bonjour,
Ca doit être à l'envers de ce que Pascal aurait souhaité, mais ça doit le faire.
Merci d'avoir pris la suite et corrigé mes bourdes pendant que j'étais dans les bras de Morphée :o)
@+ FxM
Bonsoir
A defaut de FxM 2 petites erreurs (ent & impair) se sont glissées accidentellement dans son code.
Remplace cette partie du code
For pair = 2 * (Int(nbp / 2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next pair
(Pas testé à l'impression) non plus JJ
"Pascal Bouchard" a écrit dans le message de news:muWcd.58178$
J'ai fait une macro avec cette routine et elle bloque à la ligne For pair = 2*(ent(nbp/2)) To 2 Step -2 et un message apparaît disant: "Erreur de compilation: Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable. Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau? Merci, Pascal
Dans un message précédent, FxM a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test() nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)") For impair = 1 To nbp Step 2 ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _ Copies:=1, Collate:=True Next impair Msgbox "Il faut retourner le paquet" If nbp > 1 Then For pair = 2*(ent(nbp/2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next impair End If End Sub
@+ FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Bonjour,
Ca doit être à l'envers de ce que Pascal aurait souhaité, mais ça doit
le faire.
Merci d'avoir pris la suite et corrigé mes bourdes pendant que j'étais
dans les bras de Morphée :o)
@+
FxM
Bonsoir
A defaut de FxM
2 petites erreurs (ent & impair) se sont glissées accidentellement dans son
code.
Remplace cette partie du code
For pair = 2 * (Int(nbp / 2)) To 2 Step -2
ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _
Copies:=1, Collate:=True
Next pair
(Pas testé à l'impression) non plus
JJ
"Pascal Bouchard" <forum@mitan.ca> a écrit dans le message de
news:muWcd.58178$ct3.1099019@wagner.videotron.net...
J'ai fait une macro avec cette routine et elle bloque à la ligne
For pair = 2*(ent(nbp/2)) To 2 Step -2
et un message apparaît disant: "Erreur de compilation:
Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable.
Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau?
Merci,
Pascal
Dans un message précédent, FxM <nullos@greuchmeu.ici> a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test()
nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For impair = 1 To nbp Step 2
ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _
Copies:=1, Collate:=True
Next impair
Msgbox "Il faut retourner le paquet"
If nbp > 1 Then
For pair = 2*(ent(nbp/2)) To 2 Step -2
ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _
Copies:=1, Collate:=True
Next impair
End If
End Sub
@+
FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel,
comment faire pour imprimer les pages paires et, ensuite, les pages
impaires séparément dans Excel (comme dans Word)?
Merci
Pascal
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
---
Ce courriel est exempt de virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
Ca doit être à l'envers de ce que Pascal aurait souhaité, mais ça doit le faire.
Merci d'avoir pris la suite et corrigé mes bourdes pendant que j'étais dans les bras de Morphée :o)
@+ FxM
Bonsoir
A defaut de FxM 2 petites erreurs (ent & impair) se sont glissées accidentellement dans son code.
Remplace cette partie du code
For pair = 2 * (Int(nbp / 2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next pair
(Pas testé à l'impression) non plus JJ
"Pascal Bouchard" a écrit dans le message de news:muWcd.58178$
J'ai fait une macro avec cette routine et elle bloque à la ligne For pair = 2*(ent(nbp/2)) To 2 Step -2 et un message apparaît disant: "Erreur de compilation: Sub ou Fonction non définie" et surlignant "ent" comme étant le coupable. Comme je ne m'y connais pas en VB, pouvez-vous m'aider à nouveau? Merci, Pascal
Dans un message précédent, FxM a écrit:
Bonsoir,
Avec quelque chose comme (non testé) :
Sub test() nbp = ExecuteExcel4Macro("GET.DOCUMENT(50)") For impair = 1 To nbp Step 2 ActiveWindow.SelectedSheets.PrintOut From:=impair, To:=impair, _ Copies:=1, Collate:=True Next impair Msgbox "Il faut retourner le paquet" If nbp > 1 Then For pair = 2*(ent(nbp/2)) To 2 Step -2 ActiveWindow.SelectedSheets.PrintOut From:=pair, To:=pair, _ Copies:=1, Collate:=True Next impair End If End Sub
@+ FxM
Mon imprimante n'imprime pas les feuilles recto-verso. Dans Excel, comment faire pour imprimer les pages paires et, ensuite, les pages impaires séparément dans Excel (comme dans Word)?
Merci Pascal
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
--- Ce courriel est exempt de virus. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.777 / Virus Database: 524 - Release Date: 2004-10-15
