Arrêter une appli externe

Bonjour Xav;
A adapter en remplaçant l'exemple suivant pour la calculatrice par le titre de la
fenêtre correspondant à clickyes:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long _
, lParam As Any) As Long

Sub TaMacro
' Ici ton code
'.....

Dim hWnd&
hWnd = FindWindow(vbNullString, "Calculatrice")
If hWnd Then PostMessage hWnd, &H10, 0&, 0&
End Sub

MP

"Xav" <w> a écrit dans le message de
news:eIFDsg%23kEHA.3720@TK2MSFTNGP12.phx.gbl...

Bonjour

Enfin d'envoyer automatiquement des tableaux de bord par mail, j'utilise le
petit programme ClikYes que je lance par

Shell ("D:Program FilesExpress ClickYesclickyes.exe")

Y-a-t-il un moyen pour arrêter cette application(et plus généralement toute
application lancée par un shell) à la sortie de la macro?

Merci de vos réponses



--
@+

Xav