XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.

[Agecanonix35400]

Bonjour à tous.

J'aurais besoin de vos lumières si vous le permettez.
En effet je vous ai mis mon fichier de facturation en exemple.
Lorsque je veux imprimer, je voudrais imprimer avec les filtres présents colonnes "A" et "H"
En revanche lorsque j'imprime cela me sort la liste complète
Ce que je voudrais c'est 1 jour par feuille
Par exemple
feuille 1 le 1er janvier.
feuille 2 le 02 janvier recto/verso
feuille 3 le 03 janvier.

Actuellement je dois sélectionner ma date et imprimer et refaire la même chose pour les autres jours.
Cela prend un temps fou car j'ai 3 fichiers gros comme celui-ci à imprimer.

Merci de me dire s'il y a un moyen d'imprimer en selectionnant le mois complet et que ca imprime 1 feuille par date ou bien une autre manière de faire.

 

[TooFatBoy]

ça fonctionne avec le tableau que tu as donné. Il faudrait tester avec beaucoup plus de données, de façon à obtenir un tableau sur 2 pages pour une journée.

J'ai pris le classeur de #58 et j'ai dupliqué des lignes du tableau de façon à ce qu'une des journées tienne sur deux pages, et l'impression semble fonctionner comme tu le demandais.

You know what ? I'm happy !
Et j'espère que toi aussi. Sinon, n'hésite pas à me dire ce qui ne convient pas.

 

[job75]

Bonjour le forum,

Dans le fichier joint j'ai augmenté le nombre de lignes du 02/01/2025 pour que ce jour occupe 2 pages.

Dans la macro Imprimer il faut ôter Application.ScreenUpdating = False pour que l'aperçu puisse afficher la 2ème page.

A+

 

[job75]

Pour ceux qui comme moi n'on pas d'imprimante recto-verso on peut prévoir 2 OptionButtons avec ce code :

If i = 2 Then T.Parent.PrintOut From:=IIf(T.Parent.OptionButton1, 1, 2), To:=IIf(T.Parent.OptionButton1, 1, 2) ' pour imprimer

J'ai mis If i = 2 Then pour éviter de tout imprimer.

 

[TooFatBoy]

Noter que la prévisualisation ne fonctionne pas.
Ca semble venir du fait qu'il y a plusieurs feuilles du classeur dans ladite prévisualisation.

il faut ôter Application.ScreenUpdating = False pour que l'aperçu puisse afficher la 2ème page.

Encore une chose que je ne savais pas. Merci 🤩

 

[Agecanonix35400]

Bonjour le forum,

Dans le fichier joint j'ai augmenté le nombre de lignes du 02/01/2025 pour que ce jour occupe 2 pages.

Dans la macro Imprimer il faut ôter Application.ScreenUpdating = False pour que l'aperçu puisse afficher la 2ème page.

A+

Bonjour à toi,

Je te remercie beaucoup de te pencher sur mon cas.
Cela fonctionne mais quand je clique sur imprimer il faut que je valide chaque jour à imprimer.
Peux-tu supprimer cela, vu que j'ai déjà sélectionné mes jours à imprimer. J'ai juste besoin du panneau de sélection de l'imprimante
Pour moi c'est ta version de 10:38 de mardi qui me correspond
🙂

 

[Agecanonix35400]

J'ai pris le classeur de #58 et j'ai dupliqué des lignes du tableau de façon à ce qu'une des journées tienne sur deux pages, et l'impression semble fonctionner comme tu le demandais.

You know what ? I'm happy !
Et j'espère que toi aussi. Sinon, n'hésite pas à me dire ce qui ne convient pas.

Je te remercie mais avec tous vos message je ne sais plus quoi prendre comme code 😉

 

[job75]

Bonjour Agecanonix35400, le forum,,

Je te remercie mais avec tous vos message je ne sais plus quoi prendre comme code 😉

Perso j'essaie de donner des solutions simples et faciles à comprendre.

A+

 

[Agecanonix35400]

Je vous ai mis un fichier plus gros avec les macros enregistrées.
🙂

 

[Agecanonix35400]

Bonjour Agecanonix35400, le forum,,

Perso j'essaie de donner des solutions simples et faciles à comprendre.

A+

oui je te remercie beaucoup.
Serait-il possible juste de supprimer la prévisualisation vu que j'ai déjà sélectionné les jours dont j'ai besoin?

 

[job75]

Serait-il possible juste de supprimer la prévisualisation vu que j'ai déjà sélectionné les jours dont j'ai besoin?

Il suffit de mettre une apostrophe devant la ligne de code et de l'enlever devant la ligne avec PrintOut.

 

[Agecanonix35400]

Il suffit de mettre une apostrophe devant la ligne de code et de l'enlever devant la ligne avec PrintOut.

T.Parent.PrintOut ' pour imprimer
            'T.Parent.PrintPreview 'aperçu

Comme cela?
Désolé mais c'est compliqué pour moi.😉

 

[Agecanonix35400]

T.Parent.PrintOut ' pour imprimer
            'T.Parent.PrintPreview 'aperçu

Comme cela?
Désolé mais c'est compliqué pour moi.😉

Ah non ça ne doit pas être cela.
Ca imprime tout

 

[Agecanonix35400]

Désolé mais je ne comprends pas pourquoi la macro ne fonctionne pas dans ce fichier.
Cela me décompose tout.
C'est bizarre

Désolé les gars mais je ne suis pas du tout au même niveau que vous.

 

[TooFatBoy]

Je te remercie mais avec tous vos message je ne sais plus quoi prendre comme code 😉

Je t'avoue que j'ai testé les versions de job75 mais que chez moi aucune ne semble fonctionner correctement (à moins qu'il y ait une astuce de fonctionnement que je n'ai pas vue ou comprise). De plus son code est beaucoup trop compliqué pour que j'arrive à le comprendre et le modifier pour arriver à le faire fonctionner chez moi. Donc je ne saurais te conseiller un code plutôt qu'un autre.

 

[job75]

Sur le fichier du post #68 beaucoup de lignes à imprimer sont disjointes.

Avec la macro "Imprimer" il y aura alors beaucoup de pages à imprimer.

Executez la macro "Fichier_PDF" puis ouvrez et imprimez le fichier PDF créé.