Bonjour à toutes et à tous
Cela fait un certain temps que je gamberge à trouver une solution mais la connaissance que j'ai du VBA reste relativement moyenne et pas davantage de réponse à mon problème en lisant des posts passés.
Voila, pour imprimer certaines feuilles d'un classeur, j'utilise le code suivant:
Private Sub Image20_Click()
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Sheets(Array("D0", "D1", "D2", "D3", "D4", "D5")).PrintOut
SendKeys ("{ENTER}") '
End Sub
D0 = 1 page
D1 = 2 pages
D2 = 3 pages
D3 = 2 pages
D4 = 2 pages
D5 = 1 page
- Cela marche impeccablement lorsque je sélectionne une imprimante traditionnelle: il se forme plusieurs lots de 3 pages s'imprimant à la chaîne.
- Par contre, je souhaiterais aussi pouvoir transformer ces feuilles en PDF mais dans un fichier PDF unique.
Or, en validant PDF Creator à l'impression, je me retrouve avec 4 fichiers PDF différents à nommer alors que je n'en voudrais qu'un seul (réunissant les feuilles D0 à D5).
Si quelqu'un pouvait m'aider pour une solution VBA, ce serait sympa.
Merci d'avance et bon WE.
Herou
Cela fait un certain temps que je gamberge à trouver une solution mais la connaissance que j'ai du VBA reste relativement moyenne et pas davantage de réponse à mon problème en lisant des posts passés.
Voila, pour imprimer certaines feuilles d'un classeur, j'utilise le code suivant:
Private Sub Image20_Click()
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Sheets(Array("D0", "D1", "D2", "D3", "D4", "D5")).PrintOut
SendKeys ("{ENTER}") '
End Sub
D0 = 1 page
D1 = 2 pages
D2 = 3 pages
D3 = 2 pages
D4 = 2 pages
D5 = 1 page
- Cela marche impeccablement lorsque je sélectionne une imprimante traditionnelle: il se forme plusieurs lots de 3 pages s'imprimant à la chaîne.
- Par contre, je souhaiterais aussi pouvoir transformer ces feuilles en PDF mais dans un fichier PDF unique.
Or, en validant PDF Creator à l'impression, je me retrouve avec 4 fichiers PDF différents à nommer alors que je n'en voudrais qu'un seul (réunissant les feuilles D0 à D5).
Si quelqu'un pouvait m'aider pour une solution VBA, ce serait sympa.
Merci d'avance et bon WE.
Herou