Besoin d'aide pour un publipostage
Résolu
isis1be
Messages postés
45
Date d'inscription
Statut
Membre
Dernière intervention
-
gabine -
gabine -
Salut à tous
je vient de créer une base de donnée et je veut faire un publipostage et je vient de taper se code mais il me donne à chaque fois un message d'erreur au niveau des Dim "wwapp et wwdoc" et je ne sais pas du tout comment faire pour solutionner se problème. en même temps si vous pouviez jetez un oeil dans le restant du code et me dire si il y à d'autres erreurs ;-)
Meçi à tous pour votre aide et @+
voici mon code:
Private Sub bt_mailing_Click()
Dim chemin, fichier, fichierComplet, doctext As String
'définition de word et document
Dim wwapp As Word.Application
Dim wwdoc As Word.Document
'création de l'objet word.application
Set wwapp = CreateObject("word.application")
chemin = CurrentProject.Path '"C:\Documents and Settings\vincent\Bureau\exam logiciel"
doctext = chemin & "\rappel.doc"
wwapp.Visible = True
fichier = "membre.txt"
fichierComplet = chemin & "\" & fichier
Debug.Print fichierComplet
DoCmd.TransferText acExportDelim, , "membres", fichierComplet, True
'Création d'un document dans word
Set wwdoc = wwapp.Document.Open(doctext)
wwdoc.MailMerge.Execute
wwdoc.Close False 'permet de nous donner une prévisualisation
wwapp.ActiveDocument.PrintPreview
MsgBox "Quand l'impression est terminée appuyez sur OK"
wwapp.Quit False
End Sub
je vient de créer une base de donnée et je veut faire un publipostage et je vient de taper se code mais il me donne à chaque fois un message d'erreur au niveau des Dim "wwapp et wwdoc" et je ne sais pas du tout comment faire pour solutionner se problème. en même temps si vous pouviez jetez un oeil dans le restant du code et me dire si il y à d'autres erreurs ;-)
Meçi à tous pour votre aide et @+
voici mon code:
Private Sub bt_mailing_Click()
Dim chemin, fichier, fichierComplet, doctext As String
'définition de word et document
Dim wwapp As Word.Application
Dim wwdoc As Word.Document
'création de l'objet word.application
Set wwapp = CreateObject("word.application")
chemin = CurrentProject.Path '"C:\Documents and Settings\vincent\Bureau\exam logiciel"
doctext = chemin & "\rappel.doc"
wwapp.Visible = True
fichier = "membre.txt"
fichierComplet = chemin & "\" & fichier
Debug.Print fichierComplet
DoCmd.TransferText acExportDelim, , "membres", fichierComplet, True
'Création d'un document dans word
Set wwdoc = wwapp.Document.Open(doctext)
wwdoc.MailMerge.Execute
wwdoc.Close False 'permet de nous donner une prévisualisation
wwapp.ActiveDocument.PrintPreview
MsgBox "Quand l'impression est terminée appuyez sur OK"
wwapp.Quit False
End Sub
A voir également:
- Besoin d'aide pour un publipostage
- Publipostage mail - Accueil - Word
- Publipostage powerpoint - Forum Bureautique
- Publipostage word plusieurs destinataires sur une page ✓ - Forum Word
- Enregistrer un publipostage en word en séparant chaque feuille ✓ - Forum Word
- Relier un fichier excel à un Powerpoint - Forum Powerpoint
