Intégrer dans un PDF un fichier Excel et un document Word

Version imprimable

23/04/2012, 14h11
formabox

Intégrer dans un PDF un fichier Excel et un document Word

Hello l'équipe,

Je suis en train de travailler sur un document Excel qui contient des macros et qui est une offre client. En parallèle, j'ai un modèle de lettre Word à compléter... Jusque là, je pense pouvoir me débrouiller pour faire le lien entre Excel et Word...

Par contre, savez-vous s'il est possible depuis ma macro Excel de créer un PDF qui reprend mon fichier Excel en cours ainsi que le modèle de lettre qui sera généré avec la macro et complété...

Ces deux fichiers dans un seul PDF ? Je vois pas du tout comment mais depuis Acrobat, on peut bien ajouter des documents dans un PDF et tout type de document donc ca doit être possible également depuis Excel par le VBA ???

Si quelqu'un a une voie... je suis preneuse ;)

Merci d'avance et toute belle journée,

Caro
23/04/2012, 14h18
kiki29

Salut, Office 2007 intègre en natif la génération de documents au format PDF, donc avec peut-être ceci , il y a 2 échantillons de code pour la fusion de fichiers PDF, un avec Acrobat Distiller , l'autre avec PDFCreator

Pour le pilotage de Word depuis Excel voir ici
23/04/2012, 14h37
formabox

Merci Kiki29,

C'est absolument génial tous les exemples. D'après ce que je vois, je pourrais lancer une macri qui créée un fichier PDF de mon document word puis un pdf qui créée mon document Excel puis utiliser la macro pour fusionner les documents pdf word et excel...

Mais comme je n'ai pas forcéement besoin d'avoir le pdf word et le pdf Excel, est-ce qu'il y aurait une solution pour immédiatement créer le pdf qui contient le document Word et le document Excel sans devoir les créer en pdf individuellement au préalable ?

Merci pour tes précisions...
23/04/2012, 14h41
kiki29

Salut, à priori non, il faut procéder par étapes :
Piloter Word depuis Excel pour remplir je suppose des champs Word
Générer le PDF Word
Générer le PDF Excel
Fusionner les 2 PDF
Détruire les 2 Pdf Word et Excel via un Kill

Adaptation de ce code pour créer mon fichier PDF Word

Rehello,

J'utilise ce bout de code pour créer mon fichier Excel en pdf.

Est-ce que je pourrais utiliser ce même code en l'adaptant pour créer le pdf du fichier Word depuis ma macro Excel ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Function PDFExcel(Myvar As Object, FixedFilePathName As String, _
                        OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String
    Dim FileFormatstr As String
    Dim Fname As Variant
    Dim FileExcel As String
 
    FileExcel = InputBox("Nom du fichier ?")
 
    'Test If the Microsoft Add-in is installed
    If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
         & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then
 
        If FixedFilePathName = "" Then
            'Open the GetSaveAsFilename dialog to enter a file name for the pdf
            FileFormatstr = "PDF Files (*.pdf), *.pdf"
            Fname = Application.GetSaveAsFilename(FileExcel, filefilter:=FileFormatstr, _
                                                  Title:="Create PDF")
 
            'If you cancel this dialog Exit the function
            If Fname = False Then Exit Function
        Else
            Fname = FixedFilePathName
        End If
 
        'If OverwriteIfFileExist = False we test if the PDF
        'already exist in the folder and Exit the function if that is True
        If OverwriteIfFileExist = False Then
            If Dir(Fname) <> "" Then Exit Function
        End If
 
        'Now the file name is correct we Publish to PDF
        On Error Resume Next
        Myvar.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                FileName:=Fname, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=OpenPDFAfterPublish
        On Error GoTo 0
 
        'If Publish is Ok the function will return the file name
        If Dir(Fname) <> "" Then PDFExcel = Fname
    End If
End Function

Re, je viens de faire un essai "brut de fonderie" avec depuis Excel : remplissage bidon d'un champ d'un doc word, génération du Doc en pdf puis fusion et cela baigne

Pour le remplissage du doc Word depuis Excel, j'ai fait ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Sub Donnees_ChampWord_PDF()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim sNomPDF As String
 
    Set WordApp = New Word.Application
    Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\" & "Test.doc")
    WordApp.Visible = False
 
    WordDoc.Fields(1).Result.Text = Feuil1.Range("A1")
 
    sNomPDF = "Word Doc1.pdf"
    WordDoc.ExportAsFixedFormat _
            OutputFileName:=ThisWorkbook.Path & "\" & sNomPDF, _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False
 
    WordDoc.Close False
    WordApp.Quit
 
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

23/04/2012, 16h41
formabox
Hello Kiki,

Pourrais-tu m'envoyer tes fichiers Exemples afin que je puisse décortiquer le code car j'ai essayer mais j'ai une erreur sur la ligne
Code:

1 2 3 4 WordDoc.ExportAsFixedFormat _ OutputFileName:=ThisWorkbook.Path & "\" & sNomPDF, _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False
Je t'ai envoyé un mail sur ton adresse privée donc tu as mon adresse mail.

Merci d'avance,

CAro
23/04/2012, 17h34
kiki29
Salut, tu es en Late Binding ( pas de référence cochée pour "Microsoft Word xx.x Object Library" ), et cela génère une erreur contrairement à ce qui se passe en Early Binding.

En fait il faut remplacer dans
Code:

1 2 3 4 WordDoc.ExportAsFixedFormat _ OutputFileName:=ThisWorkbook.Path & "\" & sNomPDF, _ ExportFormat:=wdExportFormatPDF, _ OpenAfterExport:=False
wdExportFormatPDF par sa valeur : 17 et cela fonctionnera en Late Binding