Test processus SolidWorks

Bonjour au forum,
Je cherche tester la présence du processus SLDWORKS.exe sur le pc.

Pour cela j'ai testé ce code :

Code:

---

1 2 3 4 5 6 7 8

Function Test_processus_SW() Dim Resultat_test_processus As Boolean If UBound(Process.GetProcessesByName("SLDWORKS")) < 0 Then Resultat_test_processus = True Else Resultat_test_processus = False End If End Function

---

Pas d'erreur de compilation mais une erreur lors de l’exécution : Erreur d'exécution '424' Oblet requis
Ceci sur la ligne :

Code:

---

If UBound(Process.GetProcessesByName("SLDWORKS")) < 0 Then

---

Je ne parviens pas à trouver la classe Process dans l'explorateur d'objets.
En recherchant sur les site de microsoft la syntaxe ma parait bonne.

Merci par avance pour vos éclaircissements.
Bonne journée.