bono53250
Messages postés2Date d'inscriptionsamedi 19 mars 2011StatutMembreDernière intervention 3 avril 2011
-
19 mars 2011 à 11:36
AlKatou
Messages postés95Date d'inscriptionvendredi 7 février 2003StatutMembreDernière intervention28 novembre 2017
-
19 mars 2011 à 18:18
bonjour
je suis en train de faire un publipostage sur access mais j'ai une petite erreur et comme je ne connais pas le vba je ne sais pas ou se trouve cette erreur,l'erreur est sur ME mais je ne vois pas comment l'arranger
le code se trouve sur le module appelé Publipostage.
voici le code :
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("E:\Documents and Settings\YOUTUBE\Bureau\essai.doc", "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
Name:="E:\Documents and Settings\YOUTUBE\Mes documents\Base de données7.accdb", _
LinkToSource:=True, _
Connection:="Table1", _
SQLStatement:="SELECT * FROM [Formulaire1] WHERE [N°] = " & Me .[N°]
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
End Sub
AlKatou
Messages postés95Date d'inscriptionvendredi 7 février 2003StatutMembreDernière intervention28 novembre 2017 19 mars 2011 à 18:18
salut,
tu dis que ce code est dans un module, or Me est à utiliser pour spécifié le formulaire en cours.
donc, tu peux remplacer Me par le nom de ton formulaire de publipostage si c'est le seul à faire appel à la fonction MergeIt. dans le cas contraire, tu peux passer ton n° en paramètre de ta fonction du style :
Sub MergeIt(ByVal Numero as long)
...
SQLStatement:="SELECT * FROM [Formulaire1] WHERE [N°] = " & Numero
...
End Sub
et aux endroits d'appel de ta fonction, mets :
la syntaxe du paramètre est un exemple, adaptes-la à tes besoins.