Bonjour,
=20
Voici une proc=E9dure qui me permet de faire du publipostage=20
directement =E0 partir d'Access.
=20
la m=E9thode Execute g=E9n=E8re le publipostage et imprime=20
imm=E9diatement les lettres.
Le probl=E8me est qu'une boite de dialogue apparait juste=20
avant pour me demander de choisir l'imprimante.
Je fais ENTREE ou je clique sur OK et =E7a part.
Question : que dois-je mettre dans ce code (=20
apr=E8s .execute sans doute ?) pour ne pas avoir =E0 faire=20
ENTREE ou =E0 cliquer sur OK ...?
=20
Merci pour vos r=E9ponses et bon week-end.
=20
-------------------------------------
=20
Private Sub BtnPublipostage_Click()
On Error GoTo Err_BtnPublipostage_Click
=20
Dim oApp As Object
Dim Doc As Document
Dim DBName As String
Const DOCName =3D "transfert.doc"
=20
=20
Set oApp =3D CreateObject("Word.Application")
oApp.Visible =3D True
=20
=20
Set Doc =3D oApp.Documents.Open
(Application.CurrentProject.Path & "\" & DOCName)
DBName =3D Application.CurrentDb.Name
With Doc.MailMerge
.OpenDataSource Name:=3DDBName, Connection:=3D"QUERY=20
reqtransferts"
.Destination =3D wdSendToPrinter
.Execute
=20
End With
=20
=20
oApp.Quit savechanges:=3DFalse
Exit Sub
=20
=20
=20
Exit_BtnPublipostage_Click:
Exit Sub
=20
Err_BtnPublipostage_Click:
MsgBox Err.Description
Resume Exit_BtnPublipostage_Click
=20
End Sub
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
LE CARRE Yannick
Salut Thierry,
tu peux envoyer l'évènement Keypressed avec Enter ?
Yannick
thierry a écrit dans le message : 095c01c3bb34$cf2ea520$ Bonjour,
Voici une procédure qui me permet de faire du publipostage directement à partir d'Access.
la méthode Execute génère le publipostage et imprime immédiatement les lettres. Le problème est qu'une boite de dialogue apparait juste avant pour me demander de choisir l'imprimante. Je fais ENTREE ou je clique sur OK et ça part. Question : que dois-je mettre dans ce code
après .execute sans doute ?) pour ne pas avoir à faire ENTREE ou à cliquer sur OK ...?
Merci pour vos réponses et bon week-end.
-------------------------------------
Private Sub BtnPublipostage_Click() On Error GoTo Err_BtnPublipostage_Click
Dim oApp As Object Dim Doc As Document Dim DBName As String Const DOCName = "transfert.doc"
Set oApp = CreateObject("Word.Application") oApp.Visible = True
tu peux envoyer l'évènement Keypressed avec Enter ?
Yannick
thierry <anonymous@discussions.microsoft.com> a écrit dans le message :
095c01c3bb34$cf2ea520$a501280a@phx.gbl...
Bonjour,
Voici une procédure qui me permet de faire du publipostage
directement à partir d'Access.
la méthode Execute génère le publipostage et imprime
immédiatement les lettres.
Le problème est qu'une boite de dialogue apparait juste
avant pour me demander de choisir l'imprimante.
Je fais ENTREE ou je clique sur OK et ça part.
Question : que dois-je mettre dans ce code
après .execute sans doute ?) pour ne pas avoir à faire
ENTREE ou à cliquer sur OK ...?
Merci pour vos réponses et bon week-end.
-------------------------------------
Private Sub BtnPublipostage_Click()
On Error GoTo Err_BtnPublipostage_Click
Dim oApp As Object
Dim Doc As Document
Dim DBName As String
Const DOCName = "transfert.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
tu peux envoyer l'évènement Keypressed avec Enter ?
Yannick
thierry a écrit dans le message : 095c01c3bb34$cf2ea520$ Bonjour,
Voici une procédure qui me permet de faire du publipostage directement à partir d'Access.
la méthode Execute génère le publipostage et imprime immédiatement les lettres. Le problème est qu'une boite de dialogue apparait juste avant pour me demander de choisir l'imprimante. Je fais ENTREE ou je clique sur OK et ça part. Question : que dois-je mettre dans ce code
après .execute sans doute ?) pour ne pas avoir à faire ENTREE ou à cliquer sur OK ...?
Merci pour vos réponses et bon week-end.
-------------------------------------
Private Sub BtnPublipostage_Click() On Error GoTo Err_BtnPublipostage_Click
Dim oApp As Object Dim Doc As Document Dim DBName As String Const DOCName = "transfert.doc"
Set oApp = CreateObject("Word.Application") oApp.Visible = True
