Sujet : Problème impression Publipostage/ACCESS [ Microsoft / Windows 2000 (pro et server) ] (gds10)


Informations & options

Problème impression Publipostage/ACCESS par : gds10 le 23/09/2008 11:38:59
Répondre Rép. Ecrire un message privé MP Voir les autres messages de ce membre 1 msg
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 Sub



et le code du bouton

Private Sub Commande42_Click()
Call Publipostage_Vers_Document

End Sub


Ca serait sympa d'avoir quelques réponses ou même pistes parce que là je galère depuis quelques jours !!

D'avance merci







Participer à cet échange

Pour participer aux échanges, vous devez vous authentifier.
Login et mot de passe que vous avez sur
CodeS-SourceS/TechnoS-SourceS




Mot de passe oublié ? / Activation de compte
Créer un compte