Macro impression en PDF incomplète

Bonjour,
Je suis nouveau sur le forum, je travaille actuellement sur un fichier Excel 2010 qui me pose pas mal de soucis. Après avoir réussi à trouver sur ce forum une aide sur comment imprimer un fichier Excel en PDF avec une macro maintenant j’aimerai améliorer le truc pour être plus performant.
Voici mon code de base qui marche :

Code:

---

1 2 3 4 5 6

Sub macro() Application.ScreenUpdating = False On Error Resume Next Worksheets("cccc").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\xxxxxxxxxxxx - " & Year(Now) & "" & Day(Now) MsgBox ("The PDF is ready to be sent") End Sub

---

Cependant j’aimerai sélectionner plusieurs onglets mais je ne trouve pas comment l’expliquer à Excel.
Par exemple je veux que à chaque fois que je clique sur mon bouton dans ma feuille Excel ils prennent les feuille 1 + feuille 2 +feuille3+....+.. et qu’ils les réunissent sous un même PDF en respectant les conditions d’impression que j’ai définie dessus.
Dans une seconde macro j’aimerai qu'il renomme mon fichier PDF selon le nom de l’onglet le soucis c’est que je ne sais pas non plus lui faire comprendre.
J’ai découvert il y’a quelques semaines cette manière de faire sous Excel que je trouve bien pratique et un peu d’aide ne serait pas de refus !
Merci d’avance !
:D

Salut, regarde ici, en bas de ce post : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

PS : Balise ton code

Re, la sélection des feuilles peut se faire en maintenant la touche Ctrl enfoncée et par des clics gauches sur l'onglet des feuilles souhaitées. L'enregistreur de macros ( si activé ) te fournira un embryon de code, à optimiser à la main.

Bonjour KIKI

je viens de faire l'essai avec l'enregistreur de macro en jouant avec les option dans la fenêtre de paramètre et j'ai un résultat surprenant
voici 2 macro enregistrées avec l'enregistreur

l'une j'ai sélectionné
dans les paramètres "feuille sélectionnées" et l'autre "classeur entier"
total le résultat dans le pdf est identique pourtant j'ai mis 6 feuilles dans le classeur

Code:

---

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

Sub Macro3() ' Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select Sheets("Feuil1").Activate ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\polux\Desktop\Classeur1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub Sub Macro4() Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select Sheets("Feuil1").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\polux\Desktop\Classeur1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub

---

cela me suggère une question
activesheet pourrait il être un array????

comme je ne me sert plus de save as pdf depuis longtemps donc je découvre

je me sert depuis pas mal de temps déjà de BULLZIP je ne sais pas si tu connais (très efficace)

Bonjour,

j'ai peut être mal compris ta question Patrick

quand tu sélectionnes plusieurs feuilles (ou toutes les feuilles), tu crées un groupe de travail

le groupe de travail est conservé tant que tu n'actives pas une autre feuille que celles du groupe

donc le array n'est pas ton activesheet, mais le groupe de travail

si tu ajoutes une Feuil4 au classeur, et que c'est elle qui est activée dans ton code, le PDF ne devrait recevoir que la Feuil4 avec l'option "feuille sélectionnée" je pense (si tu laisses ton array sur feuil1 à 3)

Bonjour joe
je viens d'enlever les activâtes et effectivement avec activeworkbook j'ai bien tout le classeur même en laissant la sélection (1,2,3)

par contre sa répond pas a ma question ou il y a quelque chose qui m'échappe

pour activesheet après sélection(1,2,3) j'ai bien mes 3 sheets dans mon pdf donc logiquement activesheet par définition étant le sheets actif et moi ayant sélectionné les 3 est donc un array

a moins qu'il y aurait encore une subtilité entre "activate" et "select" que je n'aurait pas percu

Code:

---

1 2 3 4 5 6 7 8

Sub Macro4() Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\polux\Desktop\Classeur1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub

---

ca sent la question bien tordue ca comme je les aimes:mouarf:

en tout cas pour staper se sera par exemple
le "on error resume next" n'est pas nécessaire a moins que tu ne soit pas sur des noms de sheets

Code:

---

1 2 3 4 5 6 7 8

Sub macro() Application.ScreenUpdating = False On Error Resume Next Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\xxxxxxxxxxxx - " & Year(Now) & "" & Day(Now) MsgBox ("The PDF is ready to be sent") End Sub

---

Salut, sous 2007

Code:

---

1 2 3 4 5 6 7 8

Option Explicit   Sub Macro1() Sheets(Array("Forums", "Points", "Affichage", "Jours", "Semaines", "Graph1", "Graph2" _ , "Graph3")).Select ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Sheets("Jours").Select End Sub

---

re
@kiki29
c'est ce que j'utilise pour bullzip(imprimante virtuel générant un PDF)

Code:

---

1 2 3 4 5 6 7

Sub ImpressionPDF() Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select   Application.ActivePrinter = "Bullzip PDF Printer sur Ne03:" ExecuteExcel4Macro _ "PRINT(1,,,1,,FALSE,,,,,,2,""Bullzip PDF Printer sur Ne03:"",,TRUE,,FALSE)" End Sub

---

Mais bullzip ne fait pas que le pdf
aperçu de la fenêtre de paramètre
Pièce jointe 178591

si ca intéresse quelqu'un ALLEZ VOIR par la BULLZIP

Citation:

---

Envoyé par patricktoulon

je me sert depuis pas mal de temps déjà de BULLZIP je ne sais pas si tu connais (très efficace)

---

Bonjour Patrick
Je suis sur Bullzip aussi et je le contrôle entièrement par programmation , oui c'est très puissant,
j'utilise aussi PDFTK pour faire des regroupements et faire des signets sur des pdf déjà fait,
je le contrôle aussi entièrement par programmation, très puissant aussi.

Salut, bref, pour conclure cette digression, tout ce que je fais déjà via PDFCreator depuis longtemps.

Citation:

---

Envoyé par kiki29

Salut, bref, pour conclure cette digression, tout ce que je fais déjà via PDFCreator depuis longtemps.

---

même chose avec bullzip,

il y a quelque année, j'était sur pdfcreator, là ou je travail, ils ont décidé de faire tout les dessins AutoCad et Solid Edge en pdf,
j'avais alors le mandat de faire tout les dessins déjà existant en pdf (quelque 10 000 dessin) et tout les dessins futur,
donc pour les 10 000 dessins il fallait les faire le week end. Avec pdfcreator ça buggais après environ 500 dessins.

en changeant pour Bullzip, je n'ai eu aucun problème, depuis j'utilise Bullzip, que ce soit pour Excel, AutoCad, Solid Ede ou autre.

Ceci dit ça ne veut pas dire que Bullzip est meilleur qu'un autre. dans mon cas il était plus adapté.

re

Citation:

---

Une digression (du latin digressio, du verbe digredi signifiant « action de s'éloigner »

---

c'est pas mon opinion en aucun cas on c'est éloigné du sujet

maintenant Staper a le choix de la méthode
en aucun cas je remet en cause ton travail avec pdfcreator ou distiller