Function VerifProcess(objProcess) For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process") If UCase(Process.Name) = UCase(objProcess) Then VerifProcess = "Le process " & Process.Name & " est actif.....numéro ID: " & Process.ProcessID Exit Function End If Next VerifProcess = "Le process " & objProcess & " n ''est pas actif" End Function '--------------- MsgBox VerifProcess("explorer.exe") MsgBox VerifProcess("expLOrer1234.exe")
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.