Discussion :

[satper]

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 :

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

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 !

[kiki29]

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.

[patricktoulon]

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 :

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
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)

[joe.levrai]

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)

[patricktoulon]

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 :

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

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

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 :

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

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

[kiki29]

Salut, sous 2007

Code :

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

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

[patricktoulon]

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

Code :

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

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


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

[gnain]

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.

[kiki29]

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

[gnain]

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é.

[patricktoulon]

re

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