XL 2019 Publipostage Excel vers word avec sélection

[ggvad]

Bonjour
Je souhaite faire un publipostage vers word avec une sélection d'un enregistrement, mais à l’édition j'ai toujours le même enregistrement qui s'imprime
dans mon Doc , j'ai bien un filtre et dans excel j'indique bien par un OK le produite
Merci pour votre aide

 

[fanch55]

Salut, il est où le classeur ?

 

[ggvad]

il est en fichier joint merci

 

[fanch55]

Désolé, dans le deuxième comme dans le premier, il n'y a pas de classeur Excel mais un docx ???

 

[ggvad]

sinon le voici décompressé merci

 

[fanch55]

Code modifié dans le classeur :

Function attestation(wFicPublipostage) As Integer
  
If Application.CountA(Range("A2:A600")) = 0 Then
   MsgBox "Vous devez sélectionner un produit par un OK dans la colonne A Edit  " 'la plage est vide
Else
    Dim WordApp As Object, WordDoc As Object
    'Ouvrir Word
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        Set WordDoc = .Documents.Open(ThisWorkbook.Path & "\" & wFicPublipostage)   'Ajout GVS
        With WordDoc.MailMerge
           .MainDocumentType = 0    'wdFormLetters
            .Destination = 1        'wdSendToPrinter
            .OpenDataSource Name:=ThisWorkbook.FullName, _
                ReadOnly:=True, AddToRecentFiles:=False, LinkToSource:=False, _
                SQLStatement:="SELECT * FROM [PubliPost$] WHERE Edit = 'ok'"
            .Execute
        End With
        .activedocument.Close False
        .Quit
     End With
    'Fermez le document Word, pas besoin d'enregistrer les modifications.
    Set WordApp = Nothing
End If
End Function

 

[ggvad]

Code modifié dans le classeur :

Function attestation(wFicPublipostage) As Integer
 
If Application.CountA(Range("A2:A600")) = 0 Then
   MsgBox "Vous devez sélectionner un produit par un OK dans la colonne A Edit  " 'la plage est vide
Else
    Dim WordApp As Object, WordDoc As Object
    'Ouvrir Word
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        Set WordDoc = .Documents.Open(ThisWorkbook.Path & "\" & wFicPublipostage)   'Ajout GVS
        With WordDoc.MailMerge
           .MainDocumentType = 0    'wdFormLetters
            .Destination = 1        'wdSendToPrinter
            .OpenDataSource Name:=ThisWorkbook.FullName, _
                ReadOnly:=True, AddToRecentFiles:=False, LinkToSource:=False, _
                SQLStatement:="SELECT * FROM [PubliPost$] WHERE Edit = 'ok'"
            .Execute
        End With
        .activedocument.Close False
        .Quit
     End With
    'Fermez le document Word, pas besoin d'enregistrer les modifications.
    Set WordApp = Nothing
End If
End Function

Merci, l'impression fonctionne, mais je ne sais pas pourquoi il crée une copie en lecture seule du fichier excel test.xlsm qui reste ouverte?

 

[ggvad]

Bonjour
Testé sur mon poste de travail je n'ai pas le même comportement, cela fonctionne correctement

Un grand merci