COMMANDE INVERS DE SHELL

Question

Bonjour à tout le forum,

Malgré plusieurs heures passées sur le net à la recherche d'une commande qui ferait l'inverse de shell, je me retourne vers vous pour vous solliciter.

Depuis Excel (2007) je lance un programme via la macro suivante :

Sub lancementkeyboard()
ChDrive Left(ThisWorkbook.Path, 1)
ChDir ThisWorkbook.Path
Shell ("AG_KB_Emulator.exe")
End Sub

Comment pourrai-je faire pour la fermer SVP ?

D'avance merci pour vous réponses.

cs_ShayW · Answer

Salut
que veux dire l'inverse de shell ??
shell msdn 
Runs an executable program and returns a Variant (Double) representing the program's task ID if successful, otherwise it returns zero.

c'est quoi l'inverse ?

philguejr · Answer

Bonsoir ShayW,

Je me suis servi de shell pour lancer un programme .exe.

Par "inverse", j'entends une commande qui me permette de fermer ce même programme.

Merci.

cs_ShayW · Answer

Ce n'est pas si simple 
inspires toi de ce link 

http://articles.techrepublic.com.com/5100-10878_11-1050075.html#

cs_ShayW · Answer

ça ne marche pas 
peut etre mais pas encore au point 
 
Private Sub stopexe(sTitle As String)
 'sTitle doit etre le lpWindowName ce n'est pas  le chemin comme le parametre du shell
     Dim iHwnd As Integer
     Dim ihTask As Integer
     Dim iReturn As Integer
     iHwnd = FindWindow(0&, sTitle)
     iReturn = PostMessage(iHwnd, WM_QUIT, 0, 0&)
     MsgBox "Notepad has been Closed Down"

End Sub

cs_ShayW · Answer

j'ai oublié il faut ajouter en tete du prog 
les API


 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "User" (ByVal hWnd _
      As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
      lParam As Any) As Integer
 Private Const WM_QUIT = &H12

philguejr · Answer

Merci pour tes recherches je teste ça ce soir.

Je n'aurais pas pu trouver ça tout seul.

Vraiment merci.

Bonne journée.

COMMANDE INVERS DE SHELL

6 réponses

Votre réponse

Discussions similaires