Bonjour,

J'ai fait un module de publipostage d'Access 2010 vers Word 2010 en faisant ceci :

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
Tout ceci fonctionne très bien

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.