Détecter fermeture WORD dans EXCEL

**RG25550** · 26/02/2008, 14h35

Bonjour tout le monde,

j'aurais besoin d'aide, voila mon problème :

Le contexte :
- un classeur excel d'ouvert
- word d'ouvert
Avec ma macros excel j'effectue des recherches dans le document word ouvert.

Le probème est : si l'utilisateur ferme word ou le document word, j'aimerais que la macro excel le détecte, mais je ne sais comment faire.

Avez vous des idées ?

Merci par avance.

**ouskel'n'or** · 26/02/2008, 14h42

Ce n'est pas un problème. Si Word est fermé, tu reviens dans Excel. Et si tu tentes de fermer Word dans Excel, tu as une erreur... Est-ce là ton problème ?

**Maxence HUBICHE** · 26/02/2008, 14h47

Tu as donc créé une variable objet pour manipuler ton objet Word n'est-ce pas ?

**ouskel'n'or** · 26/02/2008, 14h53

Une simple gestion d'erreur...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Msgbox "Attendre fermeture de Word"
'et si pas fermé...
On error resume next
DocWrd.close
AppWrd.Quit
On error goto 0
Set DocWrd = Nothing
Set AppWrd = Nothing
'la suite de ta macro

Mais j'attend avec impatience la solution de Maxence

Edit
Le msgbox est là afin d'empêcher la macro de fermer le doc word pendant que tu l'utilises.

**Maxence HUBICHE** · 26/02/2008, 14h58

ben, je pensais à un module de classe avec ce code dedans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Private WithEvents m_wdApp  As Word.Application
Private m_IsLoaded          As Boolean
Private Sub Class_Initialize()
    Set m_wdApp = New Word.Application
    m_wdApp.Visible = True
    m_wdApp.WindowState = wdWindowStateMinimize
End Sub
Private Sub m_wdApp_Quit()
    MsgBox "Word vient d'être fermé !"
    m_IsLoaded = False
End Sub
Function Application() As Word.Application
    Set Application = m_wdApp
    m_IsLoaded = True
End Function
Function isLoaded() As Boolean
    isLoaded = m_IsLoaded
End Function

et, pour tester ce que cela donne...
Dans un module, ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub toto()
    Dim x As MonWord
    Dim i As Long
    Set x = New MonWord
    MsgBox x.Application.Caption
    For i = 1 To 50000000
        DoEvents
        If Not x.isLoaded Then Exit For
        Debug.Print i
    Next
End Sub

La sub Toto lance une application Word (à travers la classe MonWord) et si on quitte Word à la main pendant que l'appli Excel tourne, cela interromp la procédure Excel...

**ouskel'n'or** · 26/02/2008, 15h08

Qui parlait d'occupation de l'UC, tout à l'heure ?

Pas très économique ta procédure... que j'attendais tant j'étais certain que c'était la solution que tu allais proposer.
Il y en aurait pourtant une autre qui consisterait à vérifier si le process est toujours en vie, avec Windows... Mais ce coup-ci... c'est seulement un avis personnel...

**Maxence HUBICHE** · 26/02/2008, 15h11

Envoyé par ouskel'n'or

Qui parlait d'occupation de l'UC, tout à l'heure ?

Pas très économique ta procédure...

Certes !
Certes !
Mais, j'ai rarement fait une procédure de production qui s'appelle Toto également

Il ne s'agit donc que d'une procédure de tests !

Et, dans les tests, on fait du stress pour vérifier la réactivité.

Donc, j'ai tout bon !
(

la mauvaise foi personnifiée

)

**RG25550** · 26/02/2008, 18h25

Merci à tous pour vos réponses

@ Maxence HUBICHE

J'ai essayé ton exemple mais il plante sur MonWord et sur isLoaded dans le module toto.
je ne suis pas un expère des modules de classe.
j'ai réalisé un copier collé de la premiere partie de l'exemple dans un module de classe est la deuxième dans un module
Est ce que j'ai fait une connerie

Par, ailleurs je travaille avec excel 2003 cela a peut être une importance
merci par avance pour ton aide

**Maxence HUBICHE** · 26/02/2008, 18h31

il faut référencer la bibliothèque Word

**ouskel'n'or** · 26/02/2008, 18h42

Je trouve qu'il t'en faut bien des choses : Deux procédures, deux fonctions, une référence à valider...

Par contre je remplacerais bien mon message

Msgbox "Attendre fermeture de Word"

par le tiens

MsgBox "Word vient d'être fermé !"

**RG25550** · 26/02/2008, 18h59

Maxence HUBICHE

j'ai bien activé la bibliothèque Word Microsoft WORD 11.0 object Library
mais tjs le même résultat à la compile
erreur type défini par l'utilisateur non défini

j'ai encore besoin de ton d'aide

ouskel'n'or

Si tu as des idées n’hésite pas lâche toi …

**ouskel'n'or** · 26/02/2008, 19h03

As-tu testé mon code ?

Edit
Pour l'adapter, il nous faudrait le code d'ouverture (au moins le nom des variables)
A+

**Maxence HUBICHE** · 26/02/2008, 19h47

Envoyé par RG25550

Maxence HUBICHE

j'ai bien activé la bibliothèque Word Microsoft WORD 11.0 object Library
mais tjs le même résultat à la compile
erreur type défini par l'utilisateur non défini

j'ai encore besoin de ton d'aide

En pas à pas {F8} sur quelle ligne obtiens-tu l'erreur ?

**RG25550** · 26/02/2008, 19h52

Maxence HUBICHE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub toto()
    Dim x As MonWord    ' <== ici 
    Dim i As Long
    Set x = New MonWord
    MsgBox x.Application.Caption
    For i = 1 To 50000000
        DoEvents
        If Not x.isLoaded Then Exit For
        Debug.Print i
    Next
End Sub

**Maxence HUBICHE** · 26/02/2008, 20h10

La première partie du code est à Copier dans un module de classe.
Il faut ensuite modifier la propriété (Name) du dit module de classe en la mettant à MonWord

**RG25550** · 26/02/2008, 20h54

Maxence HUBICHE

OK cela ne plante plus et WORD s'ouvre

mais si je ferme word pendant la boucle ci-dessous EXCEL est alerté
mais c'est très long et cela ne fonctionne pas à tous les coups
De plus si la boucle se termine cela ne fonctionne plus du tout.
Cette boucle est-elle nécessaire. Elle semble utiliser toutes les ressource du système ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 1 To 50000000
        DoEvents
        If Not x.isLoaded Then Exit For
        Debug.Print i
    Next

**Maxence HUBICHE** · 26/02/2008, 21h06

La réponse a été donnée plus haut !

Envoyé par Maxence HUBICHE

Certes !
Certes !
Mais, j'ai rarement fait une procédure de production qui s'appelle Toto également

Il ne s'agit donc que d'une procédure de tests !

Et, dans les tests, on fait du stress pour vérifier la réactivité.

Donc, j'ai tout bon !
(

la mauvaise foi personnifiée

)

**RG25550** · 26/02/2008, 21h17

Envoyé par ouskel'n'or

As-tu testé mon code ?

Edit
Pour l'adapter, il nous faudrait le code d'ouverture (au moins le nom des variables)
A+

ouskel'n'or

Excuse moi je ne comprends pas très bien avec le code que tu me proposes
comment excel sera averti de la fermeture de WORD
c'est sur ce point que je bute.
Existerait-il pas une API ou autre méthode qui pourrait résoudre le pb
pourrais-tu m'éclairer s'il te plait.

Merci par avance

**Maxence HUBICHE** · 26/02/2008, 22h53

Envoyé par ouskel'n'or

Bien sûr la méthode de Maxence HUBICHE est plus "sioux" mais elle occupe l'UC de manière "trés" importante.

Mais non !
C'est la boucle de tests qui occupe l'uc !
Je mappe l'appli à une classe, et après, j'attends que l'évènement se produise pour l'intercepter.
C'est de l'attente d'évènement, et rien d'autre !
Il n'y a pas d'occupation de l'uC !

**ouskel'n'or** · 26/02/2008, 22h57

Comment ouvres-tu Word ?
Pour que mon code fonctionne, il doit être ouvert depuis Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub OuvrirWord()
Dim DocWrd As Variant 'le fichier word
Dim AppWrd As Variant 'l'application
    Set AppWrd= CreateObject("Word.Application")
    DoEvents
    Set DocWrd= AppWrd.Documents.Open(Filename:="D:\Doc\LeDoc.doc")
    Application.DisplayAlerts = True
    AppWrd.ShowMe
    AppWrd.Visible = True
    '...
    'Ici le code pour travailler dans Word ou rien
    'puis, le code que je t'ai mis
    Msgbox "Attendre fermeture de Word"
    'et Word n'est pas fermé, un click sur Ok exécute les lignes suivantes
    On error resume next
        DocWrd.close
        AppWrd.Quit
    On error goto 0
    Set DocWrd = Nothing
    Set AppWrd = Nothing
    'la suite éventuelle de ta macro
End Sub

Tu peux quitter Word de deux manières, soit en fermant Word manuellement, soit en basculant sur Excel (barre des tâches)
Si Word est fermé manuellement, tu as le message. Un click sur Ok (msgbox) et la macro Excel se poursuit.
Si Word n'est pas fermé et que tu es retourné sur Excel (par la barre des tâches), le même Ok entraine l'exécution de la suite du code qui ferme Word avant que la macro se poursuive éventuellement (si tu as du code qui fait "autre chose" ensuite).
Bien sûr la méthode de Maxence HUBICHE est plus "sioux" mais elle occupe l'UC de manière "trés" importante.
Le fonctionnement aléatoire que tu observes aurait tendance à me le confirmer.

Ceci dit, pour l'une ou l'autre méthode, tout dépend de la manière utilisée pour ouvrir Word. Si ce n'est pas par macro, tu dois en utiliser une troisième.
Donc, tu nous dis

A+

Edit
Tu as ici la méthode pour vérifier si une application (Windows) quelconque est ouverte. A adapter pour Word.
A toutes fins utiles

Envoyé par Maxence HUBICHE

C'est la boucle de tests qui occupe l'uc !

C'est bien ce que je sous-entendais, on peut s'en passer, de la boucle ?