Ouvrir et fermer un .exe

[Tribal]

Bonjour !

J ai reussi a ouvrir un éxécutable par un bouton grâce a cette commande :

Dim ret As Long
ret = shell('c:/key_mux/key_mux.exe', vbNormalFocus)

Je désire maintenant fermer cette application , comment fait on SVP

merci de répondre

 

[MichelXld]

bonjour

si tu utilises XP , tu peux tester

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 = 'key_mux.exe''Â'Â') 
For Each objProcess In colProcessList 
objProcess.Terminate 
Next 
End Sub

j'espere que cet exemple pourra t'aider


bon apres midi
MichelXld

Message édité par: MichelXld, à: 03/06/2005 17:40

 

[Tribal]

Merci de ta réponse , mais je n utilise pas XP :/ . c est Windows 2000 !

 

[2passage]

bonjour

As tu testé un sendkeys '%{F4}' ?

a plus

 

[Tribal]

ET excel 2000

 

[tribal]

Le probleme est que avant de fermer l'executable , je repasse pas excel , et donc c est excel qui risque de se fermer . A moin que quelqu un connait une commande pour reprendre la main sur Key_mux automatiquement .

 

[2passage]

bonjour

ben... sendkeys '%{TAB}' mais là on est dans l'aléatoire (ca va dépendre des applications ouvertes) et le risqué (est ce que l'autre appli a terminé son travail)
Sinon, il va te falloir jouer avec les API (getprocessname, getprocessid et autres joyeusetés...)

Bon courage
a+

 

[2passage]

pouf ! idée...

if application.name = 'Microsoft Excel' then sendkeys '%{TAB}'

Là tu fermera pas Excel....

a +

 

[tribal]

En fait le code fonctionne sous windows 2000 et excel 2000 , merci beaucoup à vous 2 !