rebonjour Georges
pour un document Word spécifique , tu peux tester :
Sub ControleSiDocumentWordOuvert()
Dim Appli As Word.Application
Dim WordDoc As Word.Document
'testé avec Excel97 et Excel2002
'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("C:\Documents and Settings\monFichier.doc")
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
dans cet exemple le fichier Word spécifié sera fermé mais l'application restera ouverte
bonne soiree
MichelXld