Discussion :

[AidezMoiSvp]

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

[Heureux-oli]

Salut,

tu peux ouvrir une nouvelle instance de l'application et ne pas utiliser une instance existante.
Si tu le peux, ajoutes la référence de Word à ton projet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim wApp as Word.Application
Dim oDoc as Word.Document
 
 
Set wApp = New Word.application
Set oDoc = wApp.documents.Add
 
...
...
 
oDoc.close
Set odoc = Nothong
 
wApp.Quit

de cette manière, tu fermes l'instance que tu as créée.

[AidezMoiSvp]

Merci c'est nikel !

Petite question bonus : je ne déclare pas mon document word mais juste l'application. Pour le document je fais directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With oApp
        'ouvre un nouveau document sur la base du modèle
        .Documents.Add (CurrentProject.Path & "\Donnees_Logiciel\Modeles\mdl_projet.dot")

C'est "grave" ?

Je ferai mieux de faire un truc comme ça ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim oApp as Object
Dim oDoc as Object
 
Set oApp = CreateObject("Word.Application")
Set oDoc = oApp.Documents.Add(...)

Merci

[Heureux-oli]

Salut,

C'est pas grave et ça se soigne !

C'est juste une habitude et si tu dois utiliser plusieurs documents, c'est plus facile pour le référencer.

[AidezMoiSvp]

Merci !