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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?