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
Partager