1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
'Voici pour la déclaration du code:
Dim wdapp As Word.Application, wddoc as Word.Document
'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
.Visible = False
'ouvrir le document "modèle"
setwddoc = .Documents.Open("C:\Documents and Settings\Marc-Alexandre\Bureau\DCD Bericht und Zusage.doc")
'Diriger le publipostage vers un nouveau document "final"
wddoc.MailMerge.MainDocumentType = wdFormNormal
wddoc.MailMerge.OpenDataSource Name:= _
"C:\Documents and Settings\Marc-Alexandre\Bureau\Sites.mdb", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="QUERY Sites Requete pour décision" _
, SQLStatement:="SELECT * FROM [Sites Requete pour décision]", _
SQLStatement1:="", SubType:=wdMergeSubTypeOther
wddoc.MailMerge.Execute
' enregistrer le document "final" provenant de l'exécution de la fusion
.ActiveDocument.SaveAs CurrentProject.Path & "/testsave.doc"
' fermer le document "modèle"
wddoc.Close
Set wddoc = Nothing
' à ce stade, le document "final" est encore affiché
End With
'fermer et libérer les objets
wdapp.Documents.Close
Set wdapp = Nothing |
Partager