XL 2016 Imprimer dans un ordre donné des feuilles d'un classeur

[TooFatBoy]

Bonjour,

Est-il possible d'imprimer plusieurs feuilles Excel dans un ordre précis, sous forme d'un seul et unique document ?

Par exemple, si j'ai 4 feuilles "Verso", "Recto1", "Recto2", et "Recto3", puis-je imprimer un document unique dans l'ordre "Recto2" puis "Verso" ?

J'ai fait des essais, mais à chaque fois il m'imprime les feuilles dans l'ordre des onglets du classeur. 🙁

 

[Phil69970]

Bonjour à tous

Et pourquoi pas avec une méthode un peu ..... bourrin
En mettant les feuilles dans l'ordre que tu veux avant impression et après impression en les remettant dans l’ordre initial

Exemple avec 2 feuilles :

Sheets("Feuil2").Move Before:=Sheets(1)

et après impression tu remets dans l'ordre :

Sheets("Feuil1").Move Before:=Sheets(1)

Voir fichier

*Merci de ton retour

@Phil69970

 

[TooFatBoy]

En mettant les feuilles dans l'ordre que tu veux avant impression et après impression en les remettant dans l’ordre initial

Oui, j'y ai pensé, mais je ne savais pas comment faire, et n'avais pas encore eu le temps de chercher.

Grâce à toi je sais maintenant comment on déplace une feuille d'un classeur en VBA. 😉
Un grand merci à toi !👍

 

[Phil69970]

Re

J'ai trouvé un exemple que j'ai adapté pour 4 feuilles

*Merci de ton retour

@Phil69970

 

[TooFatBoy]

Merci. Je regarderais ça demain. Je n'ai pas le temps ce soir. Désolé.

 

[Eric C]

Bonsoir à tous

A force de bidouiller, j'ai bricolé ceci. Ce n'est pas terrible mais c'est la participation qui compte 😉 (Le choix via UserForm serait top mais pas trop le temps de faire mieux).

Bonne soirée à toutes à tous
@+ Eric c

 

[Phil69970]

Re

@Eric C
Juste 2 remarques

1) 'Il faut remplacer par .Print (c'était pour mes essais)
Je dirais plutôt ==> .PrintOut sinon tu as :

2)En fait tu lances 2 instances de l'impression et si tu as un gestionnaire d'impression il y a collision

Sans gestionnaire d’impression les impressions devraient venir se mettre à la suite dans le pool d'impression windows.

@Phil69970

 

[Eric C]

Re le fil

Remarques toujours pertinentes très cher Phil. Pour le 1er point, je reconnais mon erreur de vouloir aller trop vite et d'oublier l'essentiel. 2ème remarque : Ouais... Comme je l'ai déjà dit et redit, moi, je bidouille sans réellement connaître la programmation. Alors j'ai fait des essais (imprimante hors service... Pas folle la guêpe, les cartouches coûtent ...) et donc ....
Bon bah un coup d'épée dans l'eau comme on dit .

Bonne soirée
Eric

 

[Phil69970]

Re

. Alors j'ai fait des essais (imprimante hors service... Pas folle la guêpe, les cartouches coûtent ...)

Pour ma part passer par un gestionnaire comme sur la photo permet de ne pas lancer l'impression mais de la stopper dans le dit gestionnaire ..... super pratique pour simuler l'impression...sans pb de ..... guêpes 😄😄

On bidouille tous à notre niveau comme les canards en surface tout est zen ....🤔

Bon bah un coup d'épée dans l'eau comme on dit .

Non pas du tout toutes les idées sont bonnes et souvent d'une multitude d'idées nait la lumière. 😉

Au plaisir de te recroiser
Bonne soirée

@Phil69970

 

[kiki29]

Salut, à titre d'info : PDFCreator 1.7.3 Modifier l'ordre dans la queue d'impression puis fusionner le tout en un seul PDF

 

[Eric C]

Bonsoir le fil

@Phil : pas tout compris lors de tes commentaires #23 -
Moi, je bidouille (je bricole pas à pas et à tâtons) pour tenter d'aider et cela s'arrête là.
En retraite, je suis plus à l'aise dans les domaines du bricolage, jardinage, de la cuisine, de la pâtisserie et surtout de mes moments de détente et de récréation avec mes petits fils.
Bonne nuit à toutes & à tous
@+ Eric c

 

[TooFatBoy]

Et pourquoi pas avec une méthode un peu ..... bourrin
En mettant les feuilles dans l'ordre que tu veux avant impression et après impression en les remettant dans l’ordre initial

Je viens de regarder ton fichier v1 et c'est excellent !

Ce n'est pas 100 % parfait.
Comment faire si je veux imprimer dans cet ordre : Recto1, Verso, Recto2, Verso, Recto3, Verso ?
Mais c'est vraiment excellent car c'est rapide et très simple à mettre en place. Merci ! 👍

 

[Phil69970]

Re

Regarde la V2 au post #18
C'est encore plus simple il suffit de mettre l'ordre des feuilles dans la feuil5

Et de modifier l'ordre des feuilles après l'impression dans le code pour le remettre dans l'ordre

@Phil69970

 

[TooFatBoy]

Oui, je viens de regarder ton v2.

La partie codage VBA pour l'organisation des onglets n'est, à priori, pas ce qui me pose problème. Donc la v2 étant, par rapport à la v1, "seulement" une façon de procéder parmi de très nombreuses, elle me plait mais me scotche moins que la v1. 😉

La v1 me convient très bien car elle apporte le principe qui me manquait : trier les onglets avant impression.👍

 

[Phil69970]

Re

trier les onglets avant impression.

La V2 trie les onglets aussi avec la feuille 5 du mets l'ordre de tri que tu veux de tes 4 feuilles

Tu lances l'impression le tri se fait en 1er puis l'impression et enfin tout revient dans l'ordre que tu as mis ici

je trouve cela assez sympa
Je réfléchis sur la V3 encore plus simple.....

@Phil69970

 

[TooFatBoy]

A force de bidouiller, j'ai bricolé ceci. Ce n'est pas terrible mais c'est la participation qui compte 😉 (Le choix via UserForm serait top mais pas trop le temps de faire mieux).

Merci pour ta recherche et le temps passé.👍
Hélas ça ne correspond pas à 100 % à ce que je demandais.


Imprimer les onglets les uns après les autres, dans un ordre ou un autre, c'est ce que je fais déjà dans mon programme.

Mais j'ai ajouté une MsgBox qui demande si on veut regrouper tous les onglets en un seul document.
Si on répond "oui", c'est là que ça pose problème : les onglets sont imprimés systématiquement dans l'ordre qu'ils ont dans le classeur (en premier l'onglet le plus à gauche, et en dernier le plus à droite).
D'où l'idée de déplacer les onglets avant impression. 😉