chercher applications actives et les clore

Sub fermerUneApplication()
'testé avec Excel2002 et WinXP
Dim objProcess As Object, colProcessList As Object, objWMIService As Object
Dim strComputer As String
strComputer = '.'
Set objWMIService = getObject('winmgmts:' _
& '{impersonationLevel=impersonate}!\\\\' & strComputer & '\\root\\cimv2')
Set colProcessList = objWMIService.execQuery _
('Select * from Win32_Process Where Name = '[B]Pdfcreator.exe[/B] '')
For Each objProcess In colProcessList
objProcess.Terminate
Next
End Sub

Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" _
( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) _
As Long

'*****************************************
'API Bring Window to foreground
Private Declare Function SetForegroundWindow _
Lib "user32" _
( _
ByVal hwnd As Long _
) _
As Long
'*****************************************
'API Send message to application
Private Declare Function PostMessage _
Lib "user32" _
Alias "PostMessageA" _
( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) _
As Long
'*****************************************
Const WM_CLOSE = &H10

'*****************************************

Function Close_By_Caption(AppCaption As String)

Dim hwnd As Long

hwnd = FindWindow(vbNullString, AppCaption)

If hwnd Then
'Bring to Front
SetForegroundWindow hwnd
'Close the app nicely
PostMessage hwnd, WM_CLOSE, 0&, 0&
End If
End Function
'*****************************************

Sub Test_Close()
Close_By_Caption "[B]Sans titre - Bloc-Notes[/B]"
End Sub
'//////////////////////////////////
'SOURCE :John Madden
'Close Application from VBA Event
'/////////////////////////////////