[XL-2002] Concaténer documents pdf depuis Excel (en vb)

[lumpys]

Est-il possible de concaténer automatiquement, avec Excel, des documents pdf ? Merci

[Godzestla]

Bonjour,
pas en natif avec XLS-2002, mais en utilisant des outils gratuits comme PDFToolkit par exemple c'est possible.

Tu peux appeler ces outils via Shell, ShellExecute (ou ShellExecuteEx) pour effectuer cette opération.


Un exemple avec Shell ici et avec ShellExecute là

[lumpys]

Je dispose d'un applicatif qui semble similaire à PDFToolkit, il s'agit de PDFCreator (imprimante virtuelle). Si je comprends bien la fonction shell permet d'ouvrir PDFCreator (dans mon cas) mais après pour concaténer différents documents pdf qui auraient été créé grâce à PDFCreator, il n'est pas possible d'automatiser cette tâche. Il faut le faire manuellement en utilisant les fonctions de PDFCreator.

[Godzestla]

Bonjour,

petite rectification. Je n'utilise pas PDFCReator, mais à ce que je sache, il n'y a aucune besoin de l'appeler par Shell pour créer des PDF, et heureusement. PDFCreator fournit une imprimante sur laquelle tu imprimes et qui produit ta liste en .PDF.

Pour la fusion de PDF existants, je m'en remets à d'autres pour les capacités de PDFCReator. S'il ne peut faire cela, rien ne t'empèche d'avoir en plus PDFTK (par exemple) pour faire les fusions de PDF.

Regarde aussi, et d'abord, dans l'aide de PdfCreator pour voir s'il sait faire de la fusion de fichiers.

[lumpys]

PDFCreator sait concaténer plusieurs documents pdf. Mon souci c'est que je souhaitais automatiser cette tâche depuis Excel. Je souhaitais réaliser une impression virtuelle d'une feuille Excel, enregistrer ce document en pdf, réaliser la même opération avec plusieurs feuilles et enfin concaténer tous les documents pdf ainsi générés mais je ne sais pas comment faire cette opération.
Je sais comment lancer l'impression virtuelle, il me génère alors un document pdf à partir de là je ne sais pas comment faire pour automatiser l'enregistrement du document créé, fermer le document puis continuer les étapes citées précédemment et accessoirement fermer complètement PDFCreator une fois terminé.

[kiki29]

Salut, pour imprimer le classeur entier

Code :

1
2
 
ActiveWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"

ou sinon en plaçant les feuilles que l'on veut imprimer dans un tableau Ar()

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Cpt = 0
For i = 1 To ThisWorkbook.Sheets.Count
    If Left(Sheets(i).Name, 2) = "RF" Then
        ReDim Preserve Ar(Cpt)
        Ar(Cpt) = Sheets(i).Name
        Cpt = Cpt + 1
    End If
Next i
If Cpt = 0 Then Exit Sub
 
Sheets(Ar).PrintOut copies:=1, ActivePrinter:="PDFCreator"

[lumpys]

Bonjour,

Le 2ème code aurait pu m'intéresser mais je n'ai pas réussi à l'utiliser. Comment faut-il déclarer Ar et Cpt ?
J'ai essayé de déclarer Ar as integer mais il bloque à la ligne "ReDim Preserve Ar(Cpt)", il me dit qu'un tableau est attendu.

[jijie]

salut,

Pour imprimer la feuille active:

Code :

1
2
3
4
 
  Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True

Il est aussi possible de l'envoyer par mail sans le sauvegarder sur ton disque!

a+

[lumpys]

Merci jijie. Je connaissais déjà cette commande mais cela ne correspond pas à ce que je cherchais. Mon problème est sur la concaténation de feuilles imprimés avec PdfCreator.