[VBA] Publipostage Excel Word

Bonjour à tous

j'ai un créer un docm avec un publipostage intégré, récupérant ainsi directement la Bdd dans mon excel sur le bon onglet.

j'ai neanmoins besoins de votre aide pour plusieurs choses:

1/Comment ouvrir mon Docm directement de mon fichier Excel?

j'ai essayé ceci mais ca plante (variable non definie sur Set wordapp) ...

Sub Ouv_Word()
    Set wordapp = CreateObject("word.Application")
    wordapp.documents.Open "FichWord"
    wordapp.Visible = True
End Sub

Edit: version fonctionnel

Sub Ouvrir_document_Word()
Dim wdApp As Object
Dim wdDoc As Object

Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open(Dossier & FichWord)
wdApp.Visible = True

End Sub

2/ Lorsque j'ouvre mon Docm, une fenetre s'ouvre, est il possible de la valider par l'affirmative directectement par macro sur Word?

Application.DisplayAlerts = False dans ThisDocument ne fonctionne pas

3/ est il possible d'ouvrir ce tableau directement apres ouverture de mon Docm sans passer par le bouton "modifier la liste" (il n'y aura pas de barre des taches de visible) ?

4/ lors de la sauvegarde (fichier PDF), est il possible de lui donner un nom specifique ( contenu dans un champs )

Dim Chemin, Nom As String
 Chemin = "C:..."
Nom = Champs1
  ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "Chemin&Nom".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=False, _
        CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=False, UseISO19005_1:=False

voili voilou, je pense avoir fait le tour de mes souci du jour

Merci a ceux qui voudront bien me guider

Bonjour,

Avez-vous essayé de chercher sur le forum, de nombreux sujet traitent de ça

https://forum.excel-pratique.com/recherche/publipostage

A+