J'ai 4 feuilles sur un classeur Excel, je voudrais en cliquand simplement
sur un bouton de commande (que j'ai déjà créé), imprimer les feuilles "Annexe
1" et "Annexe 2" mais en groupé pour avoir la pagination correcte!
Si ca peut aider c'est les 2 dernières du classeur.
En plus clair je veut sélectionner ces deux feuilles comme avec la touche
CTRL et lancer l'impression.
Merci d'avance!
PS: je ne suis pas vraiment un "as" de la programmation VBA, essayez d'etre
clair au MAX !!
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
Oliv'
Bonjour,
J'ai 4 feuilles sur un classeur Excel, je voudrais en cliquand simplement sur un bouton de commande (que j'ai déjà créé), imprimer les feuilles "Annexe 1" et "Annexe 2" mais en groupé pour avoir la pagination correcte! Si ca peut aider c'est les 2 dernières du classeur. En plus clair je veut sélectionner ces deux feuilles comme avec la touche CTRL et lancer l'impression. Merci d'avance! PS: je ne suis pas vraiment un "as" de la programmation VBA, essayez d'etre clair au MAX !!
Private Sub CommandButton1_Click() Sheets(Array("Annexe 1", "Annexe 2")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Annexe 1").Select End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour,
J'ai 4 feuilles sur un classeur Excel, je voudrais en cliquand
simplement sur un bouton de commande (que j'ai déjà créé), imprimer
les feuilles "Annexe 1" et "Annexe 2" mais en groupé pour avoir la
pagination correcte!
Si ca peut aider c'est les 2 dernières du classeur.
En plus clair je veut sélectionner ces deux feuilles comme avec la
touche CTRL et lancer l'impression.
Merci d'avance!
PS: je ne suis pas vraiment un "as" de la programmation VBA, essayez
d'etre clair au MAX !!
Private Sub CommandButton1_Click()
Sheets(Array("Annexe 1", "Annexe 2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Annexe 1").Select
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai 4 feuilles sur un classeur Excel, je voudrais en cliquand simplement sur un bouton de commande (que j'ai déjà créé), imprimer les feuilles "Annexe 1" et "Annexe 2" mais en groupé pour avoir la pagination correcte! Si ca peut aider c'est les 2 dernières du classeur. En plus clair je veut sélectionner ces deux feuilles comme avec la touche CTRL et lancer l'impression. Merci d'avance! PS: je ne suis pas vraiment un "as" de la programmation VBA, essayez d'etre clair au MAX !!
Private Sub CommandButton1_Click() Sheets(Array("Annexe 1", "Annexe 2")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Annexe 1").Select End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Lepaic07
Merci! Ca marche au poil! Ca faisait un ptit moment que je me tuais la tete! Thank U!
Private Sub CommandButton1_Click() Sheets(Array("Annexe 1", "Annexe 2")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Annexe 1").Select End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci! Ca marche au poil!
Ca faisait un ptit moment que je me tuais la tete!
Thank U!
Private Sub CommandButton1_Click()
Sheets(Array("Annexe 1", "Annexe 2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Annexe 1").Select
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci! Ca marche au poil! Ca faisait un ptit moment que je me tuais la tete! Thank U!
Private Sub CommandButton1_Click() Sheets(Array("Annexe 1", "Annexe 2")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Annexe 1").Select End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook :http://faq.outlook.free.fr/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
