Bonjour
J'avais demandé lme code du publipostrage il y a qlq temps ceci marche cependant quand je clique sur mon bonton de mon userform et que sa lance word ... j'ai pas la main sur les option du publipostage sous word !! ceci est trés genant !!
Private Sub CmdPubliP_Click()
ActiveWorkbook.Save
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Application.ScreenUpdating = False
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open("fichier.doc")
With DocWord.MailMerge
.Destination = wdSendToPrinter
.Destination = wdSendToNewDocument
'.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'.Execute Pause:=True
End With
Application.ScreenUpdating = True
'DocWord.Close False
'AppWord.Quit
End Sub
si qlq peu m'aider ...
merci
J'avais demandé lme code du publipostrage il y a qlq temps ceci marche cependant quand je clique sur mon bonton de mon userform et que sa lance word ... j'ai pas la main sur les option du publipostage sous word !! ceci est trés genant !!
Private Sub CmdPubliP_Click()
ActiveWorkbook.Save
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Application.ScreenUpdating = False
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open("fichier.doc")
With DocWord.MailMerge
.Destination = wdSendToPrinter
.Destination = wdSendToNewDocument
'.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'.Execute Pause:=True
End With
Application.ScreenUpdating = True
'DocWord.Close False
'AppWord.Quit
End Sub
si qlq peu m'aider ...
merci