Pb d'ouverture de Word par code VBA depuis Access
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
Code:
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 |
Si quelqu'un pouvait m'aider.
Merci d'avance
Cmai88
