Fermer WORD via VBA EXCEL
Salut à tous,
L'idée est d'ouvrir un document WORD depuis Excel et le fermer automatiquement dès que je retourne à EXCEL;
Je parviens à l'ouvrir avec le code suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Option Explicit
Sub Vers_Word()
Dim NDF As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
NDF = "C:\Users\dell\Desktop" & "\XXXXXXXX.docm"
On Error Resume Next
Set WordDoc = WordApp.Documents("VBA_Etoile-Triangle_mode_d'emploi_.docm")
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open("C:\Users\dell\Desktop\XXXXXXXXXXX.docm", ReadOnly:=False)
WordApp.Visible = True
'If WordApp.Visible = False Or ActiveSheet.Activate = True Then
'Application.OnTime Now + TimeValue("00:00:3"), "sortir_word"
'End If
' Application.OnTime Now + TimeValue("00:00:4"), "feuille_active"
End Sub |
Le document s'ouvre avec succès, par contre je ne parviens pas à le fermer ni depuis Excel ni autre. Finalement, pour m'assurer que le est visible depuis EXCEL j'ai créer un module avec le code suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Sub verifier_si_WordOuvert()
Dim Appli As Word.Application
Dim WordDoc As Word.Document
On Error Resume Next
Set Appli = GetObject("Word.Application")
Set WordDoc = Appli.Documents("C:\Users\dell\Desktop\XXXXXXX.docm")
On Error GoTo 0
If WordDoc Is Nothing Then
MsgBox "Le document est fermé"
ElseIf Not WordDoc Is Nothing Then
MsgBox "Le document est ouvert"
End If
End Sub |
Je reçois toujours le message "Le document est fermé" malgré que le document est ouvert. J'en ai déduit que le document en question n'est pas le bon bien que c'est le même. J'ai modifié le nom plusieurs fois. Sans succès. Avez-vous une solution pour moi, svp ?
