Tester si application active

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,

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

Code:

---

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