Détecter si Word Ouvert ds VBA
airohemone
Messages postés
14
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
12 juillet 2005
-
2 mai 2005 à 10:19
jhary69 Messages postés 81 Date d'inscription jeudi 29 juillet 2004 Statut Membre Dernière intervention 22 juillet 2007 - 2 mai 2005 à 17:07
jhary69 Messages postés 81 Date d'inscription jeudi 29 juillet 2004 Statut Membre Dernière intervention 22 juillet 2007 - 2 mai 2005 à 17:07
1 réponse
jhary69
Messages postés
81
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
22 juillet 2007
2 mai 2005 à 17:07
2 mai 2005 à 17:07
salut,
voila une fct qui devrait repondre à tes attentes :
function IsWordOuvert() as boolean
on error goto err_IsWordOuvert
GetObject , "Word.Application" ' bien mettre la virgule car le 1er param n'est pas renseigné !!!
' si pas d'erreur alors word est ouvert
IsWordOuvert = true
Exit function
err_IsWordOuvert:
' si erreur c'est que word n'est pas ouvert
IsWordOuvert = false
Exit function
end function
A+
christophe.
voila une fct qui devrait repondre à tes attentes :
function IsWordOuvert() as boolean
on error goto err_IsWordOuvert
GetObject , "Word.Application" ' bien mettre la virgule car le 1er param n'est pas renseigné !!!
' si pas d'erreur alors word est ouvert
IsWordOuvert = true
Exit function
err_IsWordOuvert:
' si erreur c'est que word n'est pas ouvert
IsWordOuvert = false
Exit function
end function
A+
christophe.
