Discussion :

[nieniet]

Bonjour,
Plutôt novice en VBA WORD je cherche enregistrer ma page publipostée en format PDF avec la sélection du nom.pdf
Mon code sélectionne le modèle et non le doc publiposté (champs remplis) et m'enregistre un document .pdf que je ne peux pas ouvrir. j'ai eu beau fouiller dans le forum depuis 48 heures je ne trouve pas ma solution.
Je vous remercie de votre aide.

Voici mon code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub PUBLITESTLIGNE1()
'
' PUBLITESTLIGNE1 Macro
'
'
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Users\adrien GILLES\Desktop\BASE DEVIS DOM AC REEX.xlsm", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\adrien GILLES\Desktop\BASE DEVIS DOM AC REEX.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;Jet OLE" _
        , SQLStatement:="SELECT * FROM `'BASE DEVIS DOM AC REEX$'`", _
        SQLStatement1:="", SubType:=wdMergeSubTypeAccess
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = 1
            .LastRecord = 1
        End With
        .Execute Pause:=False
        ActiveWindow.Close
    End With
    Dim nom
    nom = ActiveDocument.Paragraphs(11).Range.Words(7)
    ActiveDocument.SaveAs FileName:="C:\Users\adrien GILLES\Desktop\" & nom & ".pdf"
    ActiveWindow.Close
 
    End Sub

[clementmarcotte]

Pour enregistrer en PDF, il faut passer par ExportasFixedFormat