Sub ControleSiDocumentWordOuvert()
Dim strDoc$
strDoc = "C:\chemin\fichier.docx"
Dim Appli As Word.Application
Dim WordDoc As Word.Document
'nécéssite d'activer la reference Microsoft word xx.x 0bject Library
On Error Resume Next
Set Appli = GetObject(, "Word.Application")
Set WordDoc = Appli.Documents(strDoc)
On Error GoTo 0
If WordDoc Is Nothing Then
MsgBox "Le document est fermé"
Else
MsgBox "Le document est ouvert"
'WordDoc.Close 'fermeture application Word
End If
End Sub