Macro Excel et Pdfcreator

Bonjour,
J'utilise pdfcreator dans une macro excel. Je dois concaténer 2 feuilles avant de les imprimer. Je voudrais faire cette opération sans intervention manuelle. Je ne trouve pas la solution. Je sais que l'on peut lancer pdfcreator avec l'option /NoProcessing pour la mise en file d'attente mais je ne sais pas comment faire dans une macro excel (je ne suis pas un spécialiste). Avez-vous une solution SVP ?
Actuellement lorsque ma macro est l'ancée l'utilisateur est obligé de répondre mise en file d'attente dans la première édition de ma première feuille. merci pour votre aide précieuse. CDLT

voici ma macro

Code:

---

1 2 3 4 5 6

Application.ActivePrinter = "PDFCreator sur Ne00:" Application.Run "'bon de commande Evelyne new1'!onglet_client" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Application.Run "'bon de commande Evelyne new1'!onglet_cde" Application.Run "'bon de commande Evelyne new1'!affichagequantité" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

---

Salut, à lire même si pour Word http://heureuxoli.developpez.com/office/word/doc2pdf/

Sinon sur http://www.developpez.net/forums/d43...bat-distiller/ au bas du Post# 1 Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

Tu peux faire

Code:

---

Sheets(Array("onglet_cde", "affichagequantité")).PrintOut Copies:=1, Collate:=True

---

Citation:

---

Envoyé par ZebreLoup

Tu peux faire

Code:

---

Sheets(Array("onglet_cde", "affichagequantité")).PrintOut Copies:=1, Collate:=True

---

---

merci pour la réponse; je ne suis vraiment pas un expert en macro. Peut-être que ta réponse est possible mais je n'arrive pas a l'appliquer dans ma macro. Mon but est d'imprimer les 2 feuilles (en pdf) une fois concaténées.
Peut-on lancer l'édition comme tu le notes

Code:

---

Sheets(Array('onglet-client", "onglet_cde" )).PrintOut Copies:=1, Collate:=True

---

Merci pour ta réponse (simple je l'espère).
CDLT

Normalement, tu mets ça à la place de tes lignes 4,5 et 6, ça devrait marcher

bonjour. Tout d'abord merci pour ton aide. Je viens d'essayer ça ne marche pas. Message d'erreur MVB : Erreur d'exécution '9': L'indice n'appartient pas à la sélection. Si j'ai vais ds déboggage la ligne

Code:

---

Sheets(Array("onglet_client", "onglet_cde")).PrintOut Copies:=1, Collate:=True

---

est en surbrillance. Voici ma macro modifiée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub pdf_concat() ' ' pdf_concat Macro ' Macro enregistrée le 09/01/2012 par Bruno '   ' Application.ActivePrinter = "PDFCreator sur Ne00:" Application.Run "onglet_client" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True   Application.Run "onglet_cde" Application.Run "affichagequantité" ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets(Array("onglet_client", "onglet_cde")).PrintOut Copies:=1, Collate:=True End Sub

---

Merci encore à bientôt

Ca doit être que le nom des onglets ne correspond pas.

Si tu veux imprimer les onglets onglet_client et onglet_cde :

Code:

---

1 2 3

Sub pdf_concat() ThisWorkbook.Sheets(Array("onglet_client", "onglet_cde")).PrintOut Copies:=1, Collate:=True End Sub

---

Si ça ne marche pas, c'est qu'il ne doit pas y avoir d'onglets qui s'appellent onglet_client et onglet_cde dans le classeur d'où tu lances ta macro.

Et merci d'éviter les messages privés pour une demande d'aide, il vaut mieux répondre sur le forum.