Problème impression Publipostage/ACCESS
par : gds10
le 23/09/2008 11:38:59

Bonjour, Je suis débutante sous VB. J'ai une base de données sous ACCESS. J'ai créé un formulaire qui me donne des informations pour mes clients (une page / client). J'ai crée un module qui me permet de générer un publipostage automatique vers Word (ça marche!). Et également un bouton commande ce qui fait que quand je cliques sur mon bouton word ma lance mon publipostage. Mais voilà j'ai 2 petits problèmes/ inconvénients que j'aimerais régler : 1- J'aimerais pouvoir imprimer seulement le courrier Word qui correspond au formulaire en cours (parce que à chaque fois il me lance le publipostage de tout le formulaire) 2 - Moins grave si je n'arrive pas à la régler, mais mon doc de fusion de base sous Word reste ouvert même après la fusion. Je vous met mon code module : Public Sub Publipostage_Vers_Document() Dim wdApp As Word.Application Dim strCheminDoc As String, strCheminFusion As String Dim strSQL As String strCheminDoc = "C:\Documents and Settings\FUSION.doc" strCheminFusion = "C:\Documents and Settings\RESULTAT.doc" strSQL = "SELECT * FROM [INTRO]" Set wdApp = New Word.Application With wdApp .Visible = True .Documents.Open strCheminDoc With .ActiveDocument.MailMerge .OpenDataSource Name:=CurrentProject.FullName, _ SQLStatement:=strSQL, _ ReadOnly:=False .Destination = wdSendToNewDocument .Execute End With .ActiveDocument.SaveAs FileName:=strCheminFusion End With Set wdApp = Nothing
End Subet le code du bouton Private Sub Commande42_Click() Call Publipostage_Vers_Document
End SubCa serait sympa d'avoir quelques réponses ou même pistes parce que là je galère depuis quelques jours !! D'avance merci
|