Création de pdf individuel à partir de la table excel en utilisant la macro VBA

Question

J'essaie de compléter ma macro mais je ne sais pas comment procéder à la fusion et publipostage à partir de ma table excel préparée (chaque ligne de mon document table = signle). J'ai écrit cette macro mais elle ne fonctionne pas. Et la deuxième chose est que le document final doit être en pdf et je ne sais pas pour l'ajuster.

Sub RunMerge() 

    Dim wd As Object 
    Dim wdocSource As Object 

    Dim strWorkbookName As String 

    On Error Resume Next 
    Set wd = GetObject(, "Word.Application") 
    If wd Is Nothing Then 
     Set wd = CreateObject("Word.Application") 
    End If 
    On Error GoTo 0 

    Set wdocSource = wd.Documents.Open(ThisWorkbook.Path & "\" & "ArtSpecDatabase.docx") 

    strWorkbookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name 

    wdocSource.MailMerge.MainDocumentType = wdFormLetters 

    wdocSource.MailMerge.OpenDataSource _ 
      Name:=strWorkbookName, _ 
      AddToRecentFiles:=False, _ 
      Revert:=False, _ 
      Connection:="Data Source=" & strWorkbookName & ";Mode=Read", _ 
      SQLStatement:="SELECT * FROM `Sheet2$`" 

    With wdocSource.MailMerge 
     .Destination = wdSendToNewDocument 
     .SuppressBlankLines = True 
     With .DataSource 
      .FirstRecord = wdDefaultFirstRecord 
      .LastRecord = wdDefaultLastRecord 
     End With 
     .Execute Pause:=False 
    End With 

Dim PathToSave As String 
PathToSave = ThisWorkbook.Path & "\" & "docs" & "\" & Sheets("Sheet2").Range("B2").Value2 & ".docx" 
'PathToSave = "C:\Users\admin\Desktop\New folder (2)\docs\Merge_Mail_" & Replace(Replace(Now(), "/", "-"), ":", ".") & ".docx" 
If Dir(PathToSave, 0) <> vbNullString Then 
    wd.FileDialog(FileDialogType:=msoFileDialogSaveAs).Show 
Else 
    wd.ActiveDocument.SaveAs2 PathToSave, wdFormatDocumentDefault 
End If 

    wdocSource.Close SaveChanges:=False 

    Set wdocSource = Nothing 
    Set wd = Nothing 

End Sub 

Answer 1

Vous avez MailMerge.Execute dans votre code, qui devrait produire un nouveau document Word avec une seule section (peut être une ou plusieurs pages) pour chaque enregistrement dans la base de données. C'est ainsi que Word est conçu pour faire du publipostage - il n'y a pas de fonctionnalité intégrée pour créer des documents séparés.

Si vous en avez besoin, vous n'avez PAS besoin d'utiliser la fusion et publipostage (il existe d'autres techniques pour créer des documents individuels pour un ensemble de données) ou vous devez diviser le document résultant. Cela a été discuté à plusieurs reprises au cours des vingt dernières années et il existe plusieurs façons de s'y prendre. On est décrit ici et utilise la fonction de sous-document Word: http://homepage.swissonline.ch/cindymeister/MergFram.htm

Une autre approche est présentée ici: http://www.gmayor.com/individual_merge_letters.htm