Discussion :

[samia21]

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":

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

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
 Private Sub Cmdpublipostage_Click()
Call MergeIt
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?

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

[Invité]

Bonjour

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?

Est-ce que cela fonctionne ou non ?

Si oui, c'est le temps que cela prend qui t'inquiète, n'est-ce-pas ?
Je ne suis pas un spécialiste du publipostage, mais il me semble que tout est relatif en fonction du nombre de données et de la complexité de ton document Word.

Starec

[samia21]

merci de m'avoir répondu.
Oui, cela fonctionne et en effet, c'est le temps qui m'inquiete.
Je réalise une application qui doit aider l' entreprise à avoir les informations rapidement. et malheureusement, en cliquant sur le bouton pour que les publipostages se réalisent, cela met énormément de temps. (J'avais essayé de réaliser que 4 publipostages et c'était déja assez long alors avec + de 300, je te laisse imaginer!...)
C'est pour cela que je voulais savoir si il y avait une méthode pour que la procédure soit plus rapide?
Cela vient peut être de mon code? parce que je trouve bizarre que se soit aussi long.

Et j'avais penser réaliser que quelques publipostages en fonction de certains critères, comme ceux que j'ai indiqué lors de mon premier message.
(-1 liste déroulante avec le nom des communes
- 1 liste déroulante avec le nom des "IP")
Et après sélection d'une commune ou d'un "IP", cela fusionnerai que les contrats concernant la sélection. (Sa permettrait de raccourcir le temps de réalisation et en plus cela sattisferai mes collegues car c'est ce qu'il veulent!)
Mais je ne sais pas comment faire.
As tu une idée?

Merci

[samia21]

Est ce que quelqu'un saurait comment faire pour réaliser uniquement les publipostages selon certains critères?

[sofien]

t'as pensé à modifier la requête SQL pourqu'elle prenne en considération les critères dont tu parles?

[samia21]

oui, j'ai pensé à modifier la requête mais je ne sais pas comment et ou il faut le faire.
J'ai crée un formulaire avec une liste déroulante ou se situe les noms des communes puis un bouton "publipostage" qui permet de faire le publipostage de la sélection uniquement. Je pense qu' il faudrait que je rajoute quelque chose du genre "Where CRA.Commune= & Nz (Modifiable3)" mais je n'arrive pas à l'incorporé dans le code que j'ai mis. (voir premier msg)

Quelqu'un peut m'aider?
merci