fermeture application externe

[chewi]

Bonjour au forum,

Je voudrais savoir s'il y a moyen de fermer une application externe à Excel via une commande?
Je ne trouve cette information nulle part.
Quel est le code à utiliser?

Il s'agit en quelque sorte du contraire de la commande Shell qui sert à ouvrir.

Je vous remercie d'avance.

Chewi

 

[MichelXld]

Re : fermeture application externe

bonsoir

j'espere que cet exemple pourra t'aider (si tu disposes d'une version récente de Windows)

Sub fermerUneApplication()
Dim objProcess As Object, 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 = 'monAppli.exe'")
 
For Each objProcess In colProcessList
    objProcess.Terminate
Next
End Sub

bonne soiree
MichelXld

 

[chewi]

Re : fermeture application externe

Re,

Et déjà merci.

Le poste sur lequel je travaille tourne sous Windows 2000 et avec Excel 2000.

J'avoue que j'ai un peu de mal à tout comprendre dans le code.

Je vais voir et essayer.

Merci.

Chewi