1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub Document_Open()
ActiveDocument.RunAutoMacro Which:=wdAutoOpen
End Sub
Sub AutoOpen()
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
"D:\xls\adresses diverses.xls", ConfirmConversions:=False, ReadOnly:= _
True, LinkToSource:=True _
, Connection:="Feuille de calcul entière"
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.Execute
End With
DoEvents 'tu mets ça si tu ne poses pas la question de la ligne suivante
If MsgBox("Consulter le document avant de l'éditer ?", vbYesNo, "Edition") = vbYes Then Exit Sub
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False
DoEvents
End Sub |
Partager