[Résolu]Vérifier si fichier word ouvert erreur 429

[Kiseki]

Bonjour,

J'ai pris un code sur internet :

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

Mais si mon fichier est fermé il bloque là :

    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

 

[jetted]

Re : [Résolu]Vérifier si fichier word ouvert erreur 429

J'utiliserais ce code

http://support.microsoft.com/kb/209189

J'espere que cela va t'aider