Microsoft 365 Publipostage VBA excel 365

Staple1600 à dit:

Re

Effectivement, désolé
J'avais ouvert rapidement le fichier Excel.

Si je m'abuse les PDF sont enregistrés dans ce dossier, non ?
fic_doc = Application.GetOpenFilename("Fichiers Word (*.docx), *.docx", , message_boite)
'...
nom_fichier = cheminW & DocName & ".pdf"

Cliquez pour agrandir...

With appWord.ActiveDocument
        .ExportAsFixedFormat OutputFileName:=(nom_fichier), _
        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
        .SaveAs "C:\Toto\" & DocName & ".pdf"
        '.ExportAsFixedFormat nom_fichier, wdExportFormatPDF
        .Close False

j'ai déja essaye en modifiant la requete SQL du code, mais du coup lorsque le code s'execute, ll plante sur le publipostage. j'ai essayé avec un filtre mais il n'en tient pas compte

Cliquez pour agrandir...

Staple1600 à dit:

Re

Test OK avec cette macro (sur Word 365)

VB:

Sub test_OK()
Dim base_XL As String, vCRIT As String
base_XL = "C:\Users\STAPLE\Documents\PUBLIPOSTAGE\base.xlsx" ' à adapter
vCRIT = "X"
'publipostage avec filtrage
With ActiveDocument
    With .MailMerge
    .MainDocumentType = 0: .Destination = 0: .SuppressBlankLines = -1
    .OpenDataSource Name:=base_XL, ReadOnly:=True, AddToRecentFiles:=False, LinkToSource:=False, _
        Connection:="Provider=Microsoft.ACE.OLEDB.14.0;User ID=Admin;" & _
        "Data Source=base_XL;Mode=Read;Extended Properties=""HDR=YES;IMEX=1"";", _
        SQLStatement:="SELECT * FROM `BASE$` WHERE CHOIX  = """ & vCRIT & """"
    .Execute
    End With
End With
End Sub

ci-dessous, comment se présente la base Excel
(la feuille se nomme BASE)

Cliquez pour agrandir...