Discussion :

[Chewi]

Bonjour au forum,

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

[SilkyRoad]

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

[Chewi]

Ok
Merci beucoup je vais essayer avec ça.

Je vous tien au courant

Merci

Chewi

[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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chewi]

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