Bonjour,
J'ai fait un module de publipostage d'Access 2010 vers Word 2010 en faisant ceci :
Tout ceci fonctionne très bien
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
17
18
19
20
21
22
23 Set wordapp = CreateObject("word.application") DoCmd.Hourglass True ' ouverture du modèle wordapp.Documents.Open ("mon modèle.dot") wordapp.Visible = False With wordapp.activedocument.MailMerge .Destination = wdSendToNewDocument .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .Execute Pause:=True End With ' création de la lettre wordapp.activedocument.SaveAs filename:="nouveau document word.doc" wordapp.activedocument.ActiveWindow.WindowState = wdWindowStateMaximize wordapp.Documents("mon modèle.dot").Close savechanges:=WdDoNotSaveChanges DoCmd.Hourglass False wordapp.Visible = True wordapp.WindowState = wdWindowStateMaximize
Sauf une petite chose qui me dérange et que j'arrive pas à résoudre.
Lorsque le document Word est crée, il s'affiche derrière ma fenêtre d'Access 2010 alors que je voudrais qu'il s'affiche au 1er plan.
C'est ce qui se passe avec Word 2003, le document une fois crée, vient se mettre par dessus Access.
Quelqu'un a t il une solution ?
Merci d'avance.
Partager