Bonjour,


Je cherche un code qui me permettra d’arrêter un processus (MSACCESS.EXE) s'il existe.
Après une recherche sur le net j'ai trouvé ce code, mais malheureusement ça marche pas avec WINDOWS 7.
Merci de m'aider afain d'adapter ce code ou m'orienter vers un autre.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'excel.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next
 
Set objWMIService = Nothing
Set colProcessList = Nothing