Ouvrir et fermer un .exe

M

MichelXld

XLDnaute Barbatruc

• 3 Juin 2005

• #2

bonjour

si tu utilises XP , tu peux tester

Code:

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

 

Vote positif 0 Vote négatif

T

Tribal

Guest

• 16 Juin 2005

• #3

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

 

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 16 Juin 2005

• #4

bonjour

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

a plus

 

Vote positif 0 Vote négatif

T

Tribal

Guest

• 16 Juin 2005

• #5

ET excel 2000 🙂

 

Vote positif 0 Vote négatif

T

tribal

Guest

• 16 Juin 2005

• #6

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 .

 

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 16 Juin 2005

• #7

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+

 

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 16 Juin 2005

• #8

pouf ! idée...

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

Là tu fermera pas Excel.... 😛

a +

 

Vote positif 0 Vote négatif

T

tribal

Guest

• 16 Juin 2005

• #9

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

🙂

 

Vote positif 0 Vote négatif