Discussion :

[MAXALM]

Bonjour à tous,

J'essaie de tester via VBA si une application (un processus) est en cours de fonctionnement. Dans mon cas il s'agit de "saplogon.exe".
J'ai essayé de nombreuses lignes de codes trouvées sur les forums mais sans succés... j'y arrive uniquement pour les applications du pack office de cette facon :


Sub Test()

Dim App As Object

Set App = GetObject(, "Word.application")
If Err.Number = 0 Then
MsgBox ("Word est ouvert")
Else
MsgBox ("Word n'est pas ouvert")

End If

End Sub


Je souheterais pouvoir adapter ce code pour tester le fonctionnement à une application.exe
Si quelqu'un a une idée je suis preneur...

Merci d'avance,

[jurassic pork]

Hello,
tu peux essayer ce code (exemple qui teste si le bloc-note est lancé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub exampleIsProcessRunning()
    Debug.Print IsProcessRunning("notepad.EXE")
    Debug.Print IsProcessRunning("NOT RUNNING.EXE")
End Sub
 
Function IsProcessRunning(process As String)
    Dim objList As Object   
    Set objList = GetObject("winmgmts:") _
        .ExecQuery("select * from win32_process where name='" & process & "'")    
    IsProcessRunning = objList.Count > 0
    Set objList = Nothing
End Function

Ami calmant, J.P