Pb avec une fenêtre Acrobate Reader restant ouverte

Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 'API de fermeture de Process
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long 'Ouverture de Process

'Procedure qui tue un processus
Sub KillProcess()

'Const PROCESS_QUERY_INFORMATION = &H400
Static ProcessId:
Dim hProcess, Termine&


'lancer le programme (ici le démineur)
ProcessId = Shell("Winmine.exe", vbMinimizedNoFocus)
'On récupère le numéro de son Process
hProcess = OpenProcess(1, False, ProcessId)


MsgBox "Pause (le démineur sera ensuite refermé)"


'On Ferme le process lancé par un TerminateProcess
Termine& = TerminateProcess(hProcess, 4)

End Sub

Sub fermerUneApplication()
'necessite d'activer la reference Microsoft WMI Scripting Library
'testé avec Excel2002 et WinXP
'michelxld le 04.01.2005
Dim objProcess As WbemScripting.SWbemObject
Dim colProcessList As WbemScripting.SWbemObjectSet
Dim objWMIService As WbemScripting.SWbemServices
Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.execQuery _
("Select * from Win32_Process Where Name = 'IEXPLORE.EXE'")
For Each objProcess In colProcessList
objProcess.Terminate
Next
End Sub

KillProcess Acrobat.exe

Sub Ferme_Fenetre_suivante()
'mettre une tempo si besoin
SendKeys ("%{TAB}"), True
SendKeys ("%{F4}"), True
End Sub