OVH Cloud OVH Cloud

Vérifier si MS Word est ouvert

5 réponses
Avatar
Room |312|
Bonjour,

J'=E9cris actuellement une macro qui utilise notamment MS=20
Word. J'aimerais cr=E9er un test destin=E9 =E0 v=E9rifier si Word=20
est ouvert ou non mais je s=E8che. Si quelqu'un peut me=20
filer un coup de main, merci d'avance.

Room |312|

5 réponses

Avatar
Philippe.R
Bonsoir,
Un petit coup d'oeil ici ?
http://www.excelabo.net/moteurs/multixl.php?pge=1&f_mot=word
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Room |312|" a écrit dans le message de
news:2ec801c470e5$2360baa0$
Bonjour,

J'écris actuellement une macro qui utilise notamment MS
Word. J'aimerais créer un test destiné à vérifier si Word
est ouvert ou non mais je sèche. Si quelqu'un peut me
filer un coup de main, merci d'avance.

Room |312|
Avatar
Room |312|
Bonsoir,
Recherche déjà effectuée sur ce site qui fait référence
mais pas de soluce à mon pb dans les occurrences
trouvées. Donc toujours en panne sèche. Bonnes volontés
bienvenues. Merci à chacun de vous !
-----Message d'origine-----
Bonsoir,
Un petit coup d'oeil ici ?
http://www.excelabo.net/moteurs/multixl.php?
pge=1&f_mot=word

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Room |312|" a
écrit dans le message de

news:2ec801c470e5$2360baa0$
Bonjour,

J'écris actuellement une macro qui utilise notamment MS
Word. J'aimerais créer un test destiné à vérifier si Word
est ouvert ou non mais je sèche. Si quelqu'un peut me
filer un coup de main, merci d'avance.

Room |312|


.



Avatar
Michel Pierron
Bonsoir Room |312|;
Ceci devrait faire l'affaire:

Private Function WordIsOpen() As Boolean
Dim wdApp As Object
On Error Resume Next
Set wdAppl = GetObject(, "Word.Application")
WordIsOpen = CBool(Err.Number = 0)
Set wdApp = Nothing
End Function

MP

"Room |312|" a écrit dans le message
de news:2ec801c470e5$2360baa0$
Bonjour,

J'écris actuellement une macro qui utilise notamment MS
Word. J'aimerais créer un test destiné à vérifier si Word
est ouvert ou non mais je sèche. Si quelqu'un peut me
filer un coup de main, merci d'avance.

Room |312|
Avatar
Philippe.R
Bonsoir,
Une idée, en passant, à tester avec toutes les précautions d'usage : tu fermes Word ; s'il n'est ouvert,
tu devrais obtenir une valeur d'erreur à partir de laquelle......
Mais tout dépends du contexte et l'idée n'est peut être pas applicable.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Room |312|" a écrit dans le message de
news:44fa01c47339$074b9320$
Bonsoir,
Recherche déjà effectuée sur ce site qui fait référence
mais pas de soluce à mon pb dans les occurrences
trouvées. Donc toujours en panne sèche. Bonnes volontés
bienvenues. Merci à chacun de vous !
-----Message d'origine-----
Bonsoir,
Un petit coup d'oeil ici ?
http://www.excelabo.net/moteurs/multixl.php?
pge=1&f_mot=word

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Room |312|" a
écrit dans le message de

news:2ec801c470e5$2360baa0$
Bonjour,

J'écris actuellement une macro qui utilise notamment MS
Word. J'aimerais créer un test destiné à vérifier si Word
est ouvert ou non mais je sèche. Si quelqu'un peut me
filer un coup de main, merci d'avance.

Room |312|


.



Avatar
Merci Michel,
Je prends note et j'essaie ; bonne soirée à toi !
Room |312|
-----Message d'origine-----
Bonsoir Room |312|;
Ceci devrait faire l'affaire:

Private Function WordIsOpen() As Boolean
Dim wdApp As Object
On Error Resume Next
Set wdAppl = GetObject(, "Word.Application")
WordIsOpen = CBool(Err.Number = 0)
Set wdApp = Nothing
End Function

MP

"Room |312|" a
écrit dans le message

de news:2ec801c470e5$2360baa0$
Bonjour,

J'écris actuellement une macro qui utilise notamment MS
Word. J'aimerais créer un test destiné à vérifier si Word
est ouvert ou non mais je sèche. Si quelqu'un peut me
filer un coup de main, merci d'avance.

Room |312|


.