[VBA - Excel] fermeture appli externe

Bonjour au forum, :D

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.

Pour info, je lance mon appli via Excel, je rentre des informations dans l'application puis je transfère vers Excel et enfin, je voudrais fermer cette application pour ne garde ouvert que mon fichier Excel.

Je vous remercie d'avance.

Chewi

bonsoir

j'espere que ces 2 liens pourront t'aider

http://vb.developpez.com/faq/?page=Systeme#close_exe

http://vb.developpez.com/faq/?page=Systeme#killprocess


bonne soiree
michel

Ok
Merci beucoup je vais essayer avec ça.

Je vous tien au courant

Merci

Chewi

Re SilkyRoad et les autres,

Voilà, j'ai essayé tes deux liens et je n'y arrive pas il s'agit de vb et non de vba et malheureusement, beaucoup de choses ne sont pas identiques.
Je n'arrive pas à trouver la correspondance de ces fonctions en VBA.

J'ai trouvé la fonction Kill(PathName) mais apparement, elle ne fonctionnerait que dans le cas d'un fichier et non d'une application.

Donc voilà, je sui toujours dans la m...

Si quelqu'un peut m'aider, n'hésitez pas.

Merci d'avance et déjà merci SilkyRoad pour avoir cherché.

B à T,

Chewi

bonjour ,
ces fonctions marchent aussi bien en vb6 que VBA ..

pour la premiére
Comment fermer un programme ouvert avec la fonction Shell ?
(avec KillAPP ) essai le code suivant (aprés avoir placé dans un module les déclarations de la FAQ)

Code:

---

1 2 3 4 5 6 7

Sub Test() Dim Monid As Long Monid = Shell("notepad.exe") MsgBox "appuyer sur ok pour fermer notepad", vbOKOnly KillApp Monid End Sub

---

Pour la seconde
Comment "tuer" un processus en mémoire (Win2000 et >)?
de la même maniére

Code:

---

1 2 3 4 5 6

Sub Test() Shell ("notepad.exe") MsgBox "appuyer sur ok pour fermer notepad", vbOKOnly KillProcess "notepad.exe" End Sub

---

sinon ... Kill tout court.. permet d'effacer un fichier voir :f1:

Bonjour,

Voilà j'ai essayer la première méthode et rien ne va (ou alors j'y comprend rien, ce qui est possible!).

Lorsque je place les déclarations dans un module, dès que je lance un code (dans le même ou dans un autre module), j'ai le message d'erreur pour la 1ère ligne:
(J'ai fait un copier-coller des déclarations de la FAQ)

"Compile error:
Only Comments may appear after End Sub, End Function or End Property"

Pour la méthode KillAPP:
Lorsque je lance la macro (sans les déclarations préalables):

"Compile error:
Sub or Function not defined"

Si vous pouvez m'éclairer?

En attendant, j'essaie la 2ème méthode et je vous tiens au courant.

D'avance merci

B à T,

Chewi

Re,

KillProcess:

"Compile error:
Sub or Function not defined"

Désolé!

Chewi

Pour Info, j'utilise Office 2000 sur Windows 2000 (!)

Place les déclaration tout en haut d'un nouveau module standard..!

et utilise le code dans un autre module par exemple..

Ok pour les déclarations.

Pour le code, j'ai toujours la même erreur, que ce soit pour KillApp ou KillProcess.

"Compile error:
Sub or Function not defined"

Dans "Module1" :

Code:

---

1 2 3 4 5 6 7

Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, _ lpdwprocessid As Long) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long

---

Dans "Module2" :

Code:

---

1 2 3 4 5 6 7 8

Sub Test()   Dim Monid As Long Monid = Shell("notepad.exe") MsgBox "appuyer sur ok pour fermer notepad", vbOKOnly KillApp Monid   End Sub

---

ou

Code:

---

1 2 3 4 5 6 7

Sub Test()   Shell ("notepad.exe") MsgBox "appuyer sur ok pour fermer notepad", vbOKOnly KillProcess "notepad.exe"   End Sub

---

Je suis dans le brouillard.

Chewi

copie tout le code de la FAQ..!! dans ton module standard..

Autant pour moi:lol:

J'avais effectivement pas tout compris.

Et bien oui, ça fonctionne correctement.
Un grand merci bbil:mrgreen:

Petite requête, peux-tu m'expliquer un peu le code des déclarations afin que je ne reste pas bête?
Ce serait très sympa.

Merci

B à T,

Chewi

Voilà, lorsque je lance mon application, celle-ci attend que la macro soit terminée avant de réapparaître (ce qui, jusque là, est voulu) mais du coup, la méthode de fermeture ne fonctionne plus car mon application disparaît tant que la macro n'est pas exécutée jusqu'à la fin.

L'idéal serait donc (mais je ne sais pas si c'est possible) de soit terminer la macro et de programmer la fermeture de l'application 4secondes après ou de terminer cette macro et d'en lancer une automatiquement qui fermerait mon apppli.

Ca devient un peu galère je crois.

Merci beaucoup d'avance.

Chewi

ps: je ne saurai répondre que demain matin.

Citation:

---

Envoyé par Chewi

Voilà, lorsque je lance mon application, celle-ci attend que la macro soit terminée avant de réapparaître (ce qui, jusque là, est voulu) mais du coup, la méthode de fermeture ne fonctionne plus car mon application disparaît tant que la macro n'est pas exécutée jusqu'à la fin.
.....

---

j'ai du mal à suivre elle fait quoi ton application ..? c'est elle qui attend que ta macro soit treminée...? comment...??

Mon application me sert d'intermédiaire pour communiquer avec un appareil de test. Elle me sert à piloter une machine et à recueillir les résultats des tests.

Dans les options de cette application, il est possible d'exporter les résultats vers Excel une fois les tests effectués.
Encore mieux, il est possible d'exécuter une macro après l'exportation.

Donc, ce que je fais:

-Excel, Feuille à l'écran, j'appuie sur un bouton qui me permet d'entrer des données dans un UserForm.
-Je valide mes données : bouton "valider" qui traite les données rentrées et qui lance mon application.
-J'effectue mes tests.
-Fin du dernier test, exportation et lancement de ma deuxième macro.
-Celle-ci traite mes données dans Excel et devrait fermer mon application.

Pourquoi fermer mon application?
Car je veux que l'on appuie sur le bouton qui lance le UserForm et que l'on ne soit pas tenté de lancer l'application soi-même.

Ce qui pourrait éventuellement convenir, c'est de remettre mon application en tant que fenêtre active lorsque l'on appuie sur le bouton "valider" et cerise sur le gâteau, qu'elle soit toujours en arrière plan ou minimisée en autre tant.

Pour info, je ne sais pas pourquoi mais les vbHide, vbMaximizedFocus et autres n'ont pas d'effet sur l'application (peut-être de ma faute).

Voilà, j'ai essayé d'être le plus complet possible.
Peut-être un peu long du coup.:lol:

Merci,

Chewi

Quelque chose de ce genre devrait convenir je crois(mais je ne connais pas la syntaxe) :

Dans Macro2:

Code:

---

1 2 3

When Macro1 Is Terminated 'code qui se lance automatiquement. Wait 2 Seconds 'pour que mon appli revienne à l'écran KillApp

---

Pour le Temps d'attente je connais la méthode avec
newHour,newMinute,newSecond
application.wait waitTime

Je reviens avec une autre solution qui fonctionne::mrgreen:
(Je ne sais pas exactement mais il semblerait que KillApp ne fonctionnerait qu'avec des applications Microsoft comme "Notepad", "calc", "Paint",... et pas des applications externes.)

Voici la solution que j'ai trouvée sur un site:

Déclarations:

Code:

---

1 2 3 4 5 6 7 8 9 10

'fermer une application avec VBA   Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long   Public Const WM_CLOSE = &H10 Public Const WM_DESTROY = &H2 Public Const WM_NCDESTROY = &H82

---

Commande:

Code:

---

1 2 3 4 5 6 7

Sub CloseWindow() Dim HWnd As Long HWnd = FindWindow(vbNullString, "Utilitaire") If HWnd > 0 Then SendMessage HWnd, WM_NCDESTROY, 0, 0 End If End Sub

---

Voilà, j'espère que cette solution pourra aider d'autres utilisateurs.

Ps: bbil, à l'occasion quand tu as un peu de temps pour m'expliquer brièvement le fonctionnement des déclarations.

B à T,

Chewi

Hello,

regarde l'excellent tuto de JM Rabilloud.
http://vb.developpez.com/cours/#api

Citation:

---

Envoyé par Chewi

../..
Ps: bbil, à l'occasion quand tu as un peu de temps pour m'expliquer brièvement le fonctionnement des déclarations.

---

Ok,

Merci pour l'info;)

Je vais scruter ça avec la plus grande attention.