Macro Excel et Pdfcreator

[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 :

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 :

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

[bruiz]

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

[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 :

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

[ZebreLoup]

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

[ZebreLoup]

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.