Bonjour,
Je souhaite réaliser un publipostage depuis Access. J'ai suivis un tutoriel qui explique les publipostages Word/ Access.
Dans mon cas il s'agit d'un contrat type réalisée sur Word et ou les données sont dans un fichier excel que j'ai importé dans une table "Requête2" dans Access.
Dans cette table ont retrouve le nom de nombreuses communes avec diverses informations dont la personne de l'entreprise qui s'occupe du contrat de la commune.(appelé IP)
Voici le module qui s'appel "publipostages":
Puis j'ai crée un formulaire avec un bouton, qui permet d'ouvrir le fichier word et où Access récupère les données dans la table "requête2" pour réaliser la fusion, sur simple clic
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub MergeIt() Dim objWord As Word.Document Set objWord = GetObject("C:\Documents and Settings\AM064085\Compte rendu annuel d'act élec et gaz\Elec\Maquette ELEC 07-ML.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:="C:\Documents and Settings\AM064085\Compte rendu annuel d'act élec et gaz\Elec\BDD MAJ 14.05.2008 .mdb", _ LinkToSource:=True, _ Connection:="TABLE Requête2", _ SQLStatement:="SELECT * FROM [Requête2]" ' Exécution de la fusion. objWord.MailMerge.Execute Set objWord = Nothing End Sub
Cela semble marché mais le problème c'est qu'il y a + de 300 publipostages a réaliser donc cela met beaucoups de temps. Y a t il une solution pour régler ce problème?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub Cmdpublipostage_Click() Call MergeIt End Sub
J'avais pensé fusionner que quelques contrats, selon certains critères.
-> Fusionner les contrats qui ont pour IP le nom de "Pascal. K" (par exemple!)
->Fusionner les contrats en sélectionnant le nom d'une ou plusieurs commune.
Comment faire?!
Merci
Partager