Bonjour, j'ai créé une base de donnée regroupant plusieurs informations. J'ai
un formulaire de saisie dans lequel un bouton me lance un publipostage avec
word en fonction d'un numéro de dossier que je vais chercher dans une requête.
Mon problème est le suivant, je souhaiterai que la fusion se fasse vers un
nouveau document et que je puisse le sauver avec un nom spécifique (numéro du
dossier .doc)
Voila mon code:
Dim db As DAO.Database, rst As DAO.Recordset
DoCmd.OpenQuery "R_Tout", acNormal, acEdit
Set wdApp = CreateObject("word.application")
wdApp.Visible = True
Set doc = wdApp.Documents.Open("C:\WINDOWS\Bureau\Docu du jour\Bornage Pro")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Nicolas" | Bonjour, j'ai créé une base de donnée regroupant plusieurs informations. J'ai | un formulaire de saisie dans lequel un bouton me lance un publipostage avec | word en fonction d'un numéro de dossier que je vais chercher dans une requête. | Mon problème est le suivant, je souhaiterai que la fusion se fasse vers un | nouveau document et que je puisse le sauver avec un nom spécifique (numéro du | dossier .doc) | Voila mon code: | Dim db As DAO.Database, rst As DAO.Recordset | | DoCmd.OpenQuery "R_Tout", acNormal, acEdit | | Set wdApp = CreateObject("word.application") | wdApp.Visible = True | Set doc = wdApp.Documents.Open("C:WINDOWSBureauDocu du jourBornage Pro") | | doc.PrintOut | | End Sub
Suis le lien et regarde le menu à gauche : http://officesystem.access.free.fr/vba/word.htm
"Nicolas"
| Bonjour, j'ai créé une base de donnée regroupant plusieurs informations. J'ai
| un formulaire de saisie dans lequel un bouton me lance un publipostage avec
| word en fonction d'un numéro de dossier que je vais chercher dans une requête.
| Mon problème est le suivant, je souhaiterai que la fusion se fasse vers un
| nouveau document et que je puisse le sauver avec un nom spécifique (numéro du
| dossier .doc)
| Voila mon code:
| Dim db As DAO.Database, rst As DAO.Recordset
|
| DoCmd.OpenQuery "R_Tout", acNormal, acEdit
|
| Set wdApp = CreateObject("word.application")
| wdApp.Visible = True
| Set doc = wdApp.Documents.Open("C:WINDOWSBureauDocu du jourBornage Pro")
|
| doc.PrintOut
|
| End Sub
Suis le lien et regarde le menu à gauche :
http://officesystem.access.free.fr/vba/word.htm
"Nicolas" | Bonjour, j'ai créé une base de donnée regroupant plusieurs informations. J'ai | un formulaire de saisie dans lequel un bouton me lance un publipostage avec | word en fonction d'un numéro de dossier que je vais chercher dans une requête. | Mon problème est le suivant, je souhaiterai que la fusion se fasse vers un | nouveau document et que je puisse le sauver avec un nom spécifique (numéro du | dossier .doc) | Voila mon code: | Dim db As DAO.Database, rst As DAO.Recordset | | DoCmd.OpenQuery "R_Tout", acNormal, acEdit | | Set wdApp = CreateObject("word.application") | wdApp.Visible = True | Set doc = wdApp.Documents.Open("C:WINDOWSBureauDocu du jourBornage Pro") | | doc.PrintOut | | End Sub
Suis le lien et regarde le menu à gauche : http://officesystem.access.free.fr/vba/word.htm
