Fermeture application (Outlook express)

[Maxime]

Bonjour,

comment fermer outlook express par macro?
Merci
Max

 

[MichelXld]

bonjour Maxime

tu peux tester cette procedure (à partir de Windows2000)


Sub fermerUneApplication()
Dim objProcess As Object
Dim colProcessList As Object
Dim 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 = 'MSIMN.EXE'')
For Each objProcess In colProcessList

objProcess.Terminate

Next
End Sub


bon apres midi
MichelXld

Message édité par: michelxld, à: 27/06/2006 16:00