Bonjour,

Pour les besoins de mon application Access, j'ouvre des documents Word.

J'utilise ce code :

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
24
25
26
 
Dim oApp As Object
Dim IsWordOpen As String
 
On Error Resume Next
Set oApp = GetObject(, "word.application")
IsWordOpen = Not oApp Is Nothing
    If IsWordOpen = "faux" Then
        Set oApp = CreateObject("word.application")
    Else
        Set oApp = GetObject(, "word.application")
    End If
 
on error goto RecupErreur
With oApp
        'ouvre un nouveau document sur la base du modèle
        .Documents.Add (CurrentProject.Path & "\Donnees_Logiciel\Modeles\mdl_projet.dot")
        'rend l'application visible - Impératif pour que l'envoi des données se fasse
        .Visible = True
 
.ActiveDocument.Close
....
 
end with
 
Set oApp = Nothing
Je rencontre cependant un "problème".
En effet, si aucun document Word n'est ouvert, la fenêtre Word, une fois mon code exécuté, reste ouverte (fenêtre grise avec juste le ruban).
Si j'ajoute à mon code oApp.Quit la fenêtre se ferme donc ok plus de problème. Mais si d'autres documents Word sont ouverts, alors tous les documents Word ouvert se ferme.

Comment faire ?

Merci