Bonjour à tous,
Je suis sous Excel 2010. Je bloque sur ce code dont l'objet est de tester si un fichier Word est ouvert.
Pouvez vous m'aider ? Mille mercis.
Question complémentaire : Comment tester sans ouvrir l'application à chaque fois Word ?
Je suis sous Excel 2010. Je bloque sur ce code dont l'objet est de tester si un fichier Word est ouvert.
Pouvez vous m'aider ? Mille mercis.
Question complémentaire : Comment tester sans ouvrir l'application à chaque fois Word ?
HTML:
Dim WordApp As Object
Dim WordDoc As Object
'les variables suivantes ont déjà été déclarées
chemin = Workbooks(ActiveWorkbook.Name).Path
fichier = ActiveWorkbook.Name
On Error Resume Next
Set WordApp = CreateObject("word.application")
DoEvents
WordApp.Visible = True
Set WordDoc = WordApp.Documents("MonFichier.doc")
If Not WordDoc Is Nothing Then
MsgBox "le fichier est ouvert"
End If