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
| DoCmd.RunCommand acCmdRefresh
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE entreprise.* FROM entreprise IN 'C:\access_pc3d\publipostage.mdb';"
DoCmd.RunSQL "INSERT INTO entreprise ( NUM_OPERATION, NOM_OPERATION, VILLE_OPERATION, DATE_CONTACT_DCE, NOM_ENTREPRISE, ADRESSE_ENTREPRISE, ADRESSEBIS_ENTREPRISE, VILLE_ENTREPRISE, CP_ENTREPRISE, NOM3D, ADRESSE3D, VILLE3D, CP3D, TEL3D, FAX3D, LOGO ) IN 'C:\access_pc3d\publipostage.mdb' SELECT OPERATION.NUM_OPERATION, OPERATION.NOM_OPERATION, OPERATION.VILLE_OPERATION, OPERATION.DATE_CONTACT_DCE, INTERVENANT_EXT.NOM_INTERVENANT_EXT, INTERVENANT_EXT.ADRESSE_INTERVENANT_EXT, INTERVENANT_EXT.ADRESSEBIS_NTERVENANT_EXT, INTERVENANT_EXT.VILLE_INTERVENANT_EXT, INTERVENANT_EXT.CP_INTERVENANT_EXT, SOCIETE.NOM3D, SOCIETE.ADRESSE3D, SOCIETE.VILLE3D, SOCIETE.CP3D, SOCIETE.TEL3D, SOCIETE.FAX3D, SOCIETE.LOGO FROM SOCIETE INNER JOIN (INTERVENANT_EXT INNER JOIN OPERATION ON INTERVENANT_EXT.NUM_INTERVENANT_EXT = OPERATION.NUM_INTERV_PROMOTEUR) ON SOCIETE.NUM_SOCIETE_3D = OPERATION.NUM_SOCIETE_3D WHERE (((OPERATION.NUM_OPERATION)=[Forms]![Fiche Contact DCE]![NUM_OPERATION]));"
DoCmd.SetWarnings True
' Chemin d'accès au document Word de publipostage
Const DOC_WORD = "C:\access_pc3d\doc\Lettre confirmation d'intêret.doc"
' Variable pour gérer l'objet Word
Dim wdApp As Object 'ici
' Passer à la partie Publipostage
Set wdApp = CreateObject("Word.Application") 'ici
With wdApp
' Word est visible pendant les tests
.Visible = True
' Ouvrir la lettre type
.Documents.Open DOC_WORD
' Lier la lettre type à la source de données Access
.ActiveDocument.MailMerge.OpenDataSource _
Name:=CurrentProject.Path & "\publipostage.mdb", _
SQLStatement:="SELECT * FROM [entreprise]"
' La fusion doit se faire dans un nouveau document
.ActiveDocument.MailMerge.destination = wdSendToNewDocument
' Exécuter la fusion
.ActiveDocument.MailMerge.Execute
.ActiveDocument.Fields.Update
' Redonner le focus à la lettre type et fermer sans enregistrer
'.Documents.Open DOC_WORD
'.ActiveDocument.Close wdDoNotSaveChanges
End With
wdApp.Visible = True
Set wdApp = Nothing
Exit Sub |
Partager