Bonjour,
J'ai pris un code sur internet :
Mais si mon fichier est fermé il bloque là :
Erreur 429, Un composant ActiveX ne peut pas créée d'objet.
Merci,
Semble réglé avec Outils > Option > Général > Arrêt sur les erreurs non gérées
J'ai pris un code sur internet :
VB:
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 SubMais si mon fichier est fermé il bloque là :
VB:
Set Appli = GetObject(, "Word.Application")Erreur 429, Un composant ActiveX ne peut pas créée d'objet.
Merci,
Semble réglé avec Outils > Option > Général > Arrêt sur les erreurs non gérées
Dernière édition: