Discussion :

[bruiz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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

[ZebreLoup]

Tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bruiz]

Tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[ZebreLoup]

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

[bruiz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

est en surbrillance. Voici ma macro modifiée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ZebreLoup]

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