Discussion :

[RG25550]

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]

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]

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

[ouskel'n'or]

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]

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]

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...