Bonjour,
J'ai un code pour imprimer depuis excel, un document word avec du publipostage.
La fusion se passe bien, mais le document ne s'imprime pas.
Pouvez-vous m'aider??
Voici mon code :
Sub Ouv_Word()
NomBase = "C:\tst.xls"
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("C:\x.doc")
'fonctionnalité de publipostage pour le document spécifié
With docWord.mailMerge
'Ouvre la base de données
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Feuil1$]"
'Spécifie la fusion vers l'imprimante
.Destination = wdSendToPrinter
.suppressBlankLines = True
'Prend en compte l'ensemble des enregistrements
With .DataSource
.firstRecord = wdDefaultFirstRecord
.lastRecord = wdDefaultLastRecord
End With
'Exécute l'opération de publipostage
.Execute Pause:=False
End With
'Fermeture du document Word
docWord.Close
appWord.Quit
End Sub