Fermeture d'une application

Bonjour a tous, j'aimerais pouvoir fermer une application que j'ouvre avec mon VBA.

procID = Shell("C:\Program Files\Z80 Simulator IDE\z80simulatoride.exe") 

'ouvre l'application

Bonsoir,

La solution : code fourni par MichD(MVP)

Sub test()
Tuer_Exécutable "Notepad.exe"
End Sub

Sub Tuer_Exécutable(Programme As String)
 Dim strComputer  As String, objProcess As Object
 Dim objWMIService As Object, colProcessList As Object

strComputer = "."
 Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 Set colProcessList = objWMIService.ExecQuery _
     ("Select * from Win32_Process Where Name = '" & Programme & "'")
 For Each objProcess In colProcessList
     objProcess.Terminate
 Next
 End Sub

A+

salut! n'y aurait-il pas quelque chose de plus simple?

Môôssieur fait le difficile !!!

Bah... C'est on ne peut plus simple : Tu remplaces "Notepad.exe" par le nom de ton appli et c'est plié !

A+

effectivement ca fonctionne bien!

Merci a toi.