Bonjour,
J'ai un programme qui fonctionne parfaitement avec Access 2003 et Word 2003.
Je dois maintenant développer un programme sous 2007 et j'ai repris une procédure qui m'ouvre Word et lance le publipostage.
Or Word ne s'ouvre pas.
Je suis obligée d'utiliser Alt-Tab pour basculer vers la fenêtre qui indique que l'ouverture du document Word exécutera la commande SQL suivante : ....
Et là ça fonctionne
Cela n'est techniquement pas envisageable et j'ai beau chercher sur les forums, je ne trouve pas de solution à mon pb :
Comme je suis nouvelle dans les forums, je ne sais pas comment on intégre du code.
Par conséquent j'ai fait un copier-coller
Si quelqu'un pouvait m'aider.
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 Sub Merge_Convocation_Expertise() Dim objWord As Word.Document Set objWord = GetObject("C:\Users\Utilisateur\Documents\developpement\convocation-expertise.docx", "Word.Document") 'rend Word visible : important puisque la fusion se fait à l'écran objWord.Application.Visible = True 'Sélectionne la base de données Imp comme source de données pour la fusion objWord.MailMerge.OpenDataSource _ Name:="C:\Users\Utilisateur\Documents\developpement\Expertise.accdb", _ LinkToSource:=True, _ Connection:="TABLE Imp", _ SQLStatement:="SELECT * FROM [Imp]" 'Execution de la fusion objWord.MailMerge.Execute Set objWord = Nothing End Sub
Merci d'avance
Cmai88
Partager