Bonjour à tous,

Je vous ecris car je lance une macro à partir de VBA Excel, qui ouvre un fichier Word, et j'ai mis une condition pour verifier si ce fichier Word n'est pas déjà ouvert, mais cela ne marche pas tout le temps, jai souvent le message d'erreur suivant :
Le serveur distant n'existe pas ou n'est pas disponible (erreur 462)
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Set FichierWord = GetObject("D:\Fichier.doc")
 
If FichierWord = ActiveDocument Then
    MsgBox "Le fichier Word de référence est ouvert, veuillez fermer le fichier Word pour que les données puissent être copié."
    Exit Sub
End If
Merci pour vos réponses