Bonsoir,
J'ai un tableau excel sur une hauteur de 12 pages, que j'aurais souhaité
imprimer recto-verso.
Sur une ancienne version d'excel il m'avait semblé trouver une option pour
imprimer d'abord les feuilles impaires, puis paires.
Je ne retrouve pas cette option sur la version 2002 et j'avoue que je ne
sais pas du tout comment faire.
Et vue l'heure tardive... y a t il un insomnique pour m'aider ? (ou un
lève-tôt)
Merci,
François.
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
Denis Michon
Bonsoir Frasan,
Voici 2 macros sur le sujet paru ici même sous la plume de 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!
"Frasan" a écrit dans le message de news:blafre$346$ Bonsoir, J'ai un tableau excel sur une hauteur de 12 pages, que j'aurais souhaité imprimer recto-verso. Sur une ancienne version d'excel il m'avait semblé trouver une option pour imprimer d'abord les feuilles impaires, puis paires. Je ne retrouve pas cette option sur la version 2002 et j'avoue que je ne sais pas du tout comment faire. Et vue l'heure tardive... y a t il un insomnique pour m'aider ? (ou un lève-tôt) Merci, François.
Bonsoir Frasan,
Voici 2 macros sur le sujet paru ici même sous la plume de 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!
"Frasan" <frasanNOSPAM@wanadoo.fr> a écrit dans le message de news:blafre$346$1@news-reader3.wanadoo.fr...
Bonsoir,
J'ai un tableau excel sur une hauteur de 12 pages, que j'aurais souhaité
imprimer recto-verso.
Sur une ancienne version d'excel il m'avait semblé trouver une option pour
imprimer d'abord les feuilles impaires, puis paires.
Je ne retrouve pas cette option sur la version 2002 et j'avoue que je ne
sais pas du tout comment faire.
Et vue l'heure tardive... y a t il un insomnique pour m'aider ? (ou un
lève-tôt)
Merci,
François.
Voici 2 macros sur le sujet paru ici même sous la plume de 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!
"Frasan" a écrit dans le message de news:blafre$346$ Bonsoir, J'ai un tableau excel sur une hauteur de 12 pages, que j'aurais souhaité imprimer recto-verso. Sur une ancienne version d'excel il m'avait semblé trouver une option pour imprimer d'abord les feuilles impaires, puis paires. Je ne retrouve pas cette option sur la version 2002 et j'avoue que je ne sais pas du tout comment faire. Et vue l'heure tardive... y a t il un insomnique pour m'aider ? (ou un lève-tôt) Merci, François.
Denis Michon
Bonsoir Frasan,
Voici 2 macros sur le sujet paru ici même sous la plume de 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!
"Frasan" a écrit dans le message de news:blafre$346$ Bonsoir, J'ai un tableau excel sur une hauteur de 12 pages, que j'aurais souhaité imprimer recto-verso. Sur une ancienne version d'excel il m'avait semblé trouver une option pour imprimer d'abord les feuilles impaires, puis paires. Je ne retrouve pas cette option sur la version 2002 et j'avoue que je ne sais pas du tout comment faire. Et vue l'heure tardive... y a t il un insomnique pour m'aider ? (ou un lève-tôt) Merci, François.
Bonsoir Frasan,
Voici 2 macros sur le sujet paru ici même sous la plume de 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!
"Frasan" <frasanNOSPAM@wanadoo.fr> a écrit dans le message de news:blafre$346$1@news-reader3.wanadoo.fr...
Bonsoir,
J'ai un tableau excel sur une hauteur de 12 pages, que j'aurais souhaité
imprimer recto-verso.
Sur une ancienne version d'excel il m'avait semblé trouver une option pour
imprimer d'abord les feuilles impaires, puis paires.
Je ne retrouve pas cette option sur la version 2002 et j'avoue que je ne
sais pas du tout comment faire.
Et vue l'heure tardive... y a t il un insomnique pour m'aider ? (ou un
lève-tôt)
Merci,
François.
Voici 2 macros sur le sujet paru ici même sous la plume de 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!
"Frasan" a écrit dans le message de news:blafre$346$ Bonsoir, J'ai un tableau excel sur une hauteur de 12 pages, que j'aurais souhaité imprimer recto-verso. Sur une ancienne version d'excel il m'avait semblé trouver une option pour imprimer d'abord les feuilles impaires, puis paires. Je ne retrouve pas cette option sur la version 2002 et j'avoue que je ne sais pas du tout comment faire. Et vue l'heure tardive... y a t il un insomnique pour m'aider ? (ou un lève-tôt) Merci, François.
