P
pyrof
Guest
Bonjour à tous,
J'ai dans une feuille une liste de nom de sheet que je voudrais selectionner pour les imprimer.
Oui je peux les imprimer une par une sans difficulté. Mais comme l'imprimante est utilisée par beaucoup de personne, j'ai la feuille 1 puis l'ouvage d'un collègue puis ma feuille 2 .....
En sélectionnant les sheets utiles et en imprimant cette sélection toutes les feuilles arrivent ensemble sur l'imprimante.
Pour ce j'utilise la commande :
Sub imprime()
Sheets(Array("AP", "PL", "VI", "LC", "AG", "UN", "JS", "LM", "AS")).Select
Sheets("AP").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets(Array("Feuil1")).Select
Je voudrais pouvoir sélectionner les sheets en récupérant les noms dans une feuille, et nom en saisissant ceux-ci dans la commande.
J'espère avoir été claire.
Merci à tous ceux qui m'accorderont du temps.
J'ai dans une feuille une liste de nom de sheet que je voudrais selectionner pour les imprimer.
Oui je peux les imprimer une par une sans difficulté. Mais comme l'imprimante est utilisée par beaucoup de personne, j'ai la feuille 1 puis l'ouvage d'un collègue puis ma feuille 2 .....
En sélectionnant les sheets utiles et en imprimant cette sélection toutes les feuilles arrivent ensemble sur l'imprimante.
Pour ce j'utilise la commande :
Sub imprime()
Sheets(Array("AP", "PL", "VI", "LC", "AG", "UN", "JS", "LM", "AS")).Select
Sheets("AP").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets(Array("Feuil1")).Select
Je voudrais pouvoir sélectionner les sheets en récupérant les noms dans une feuille, et nom en saisissant ceux-ci dans la commande.
J'espère avoir été claire.
Merci à tous ceux qui m'accorderont du temps.