tester si une application externe est active

[cwain]

Bonjour à tous,

Je cherche à savoir comment faire à partir de vba pour tester si une application externe (outlook en l'occurence) est ouverte ou pas
J'ai trouvé un truc là dessus, mais je ne sais pas ce qu'est la fonction getmodulehandler
http://support.microsoft.com/kb/132375/fr
Quelqu'un pourrait-il m'éclairer sur cette fonction ? Ou toute autre solution ?

Cwain

[SilkyRoad]

bonjour

tu peux essayer

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub ControleSiOutlookOuvert()
    Dim Appli As Object
 
    On Error Resume Next
    Set Appli = GetObject(, "Outlook.Application")
 
    If Appli Is Nothing Then
        MsgBox "Outlook est fermé"
        Else
        MsgBox "Outlook est ouvert"
    End If
End Sub

bonne soirée
michel