FERMETURE D'UN PROCESSUS PRÉCIS (KILL PROCESS)

Commentaire de Patrice99 le 22/09/2005 08:27:12

Pourquoi veux-tu tuer un process ? pour ma part j'ai completement indiqué la raison pour laquelle je devais tuer un processus : c'est parce que Office 2000 a légèrement été oubliée par Microsoft et que moi je distribue des logiciels .Net qui doivent fonctionner avec toutes les versions d'Office >= 2000.

Commentaire de Sirocooo le 22/09/2005 10:39:56

Bon travail.

On aussi faire :

Public Shared Sub KillProcess(ByVal NomExeSansExt As String)
  Dim sProcess() As Process = Process.GetProcessesByName(NomExeSansExt)
  Dim i As Integer

  For i = 0 To sProcess.Length - 1
     sProcess(i).Kill()
  Next
End sub

Commentaire de capuccino_fr le 22/09/2005 11:28:15

Merci Sirocooo
CBoulas: ca évite d'avoir des dossiers "fr" ou autre qui trainent dans le dossier d'application qui trainent avec des dll (tu en as certainement deja vus !!!). On ne garde que l'essentiel

@++

Commentaire de capuccino_fr le 09/12/2005 10:16:07

comment ca se fait? c'est compatible partout ou je l'ai testé: tous les windows possédant le Framework .Net. L'as tu installé ?

Commentaire de DAHOKHAN le 12/12/2005 21:03:49

excuse j'avais pas vu que c'était un code .net et je e n'ais pas installer le framework.Net.
désolé.
Mais j'ai qud même trouvé mon bonheur.
merci!!!!!

Commentaire de audklie le 23/06/2006 14:16:49

kkun a la meme solution en VBS please?
je narrive pas a transposer le code de facon a ce que ca marche
merci d'av

Commentaire de johann91 le 05/07/2006 14:19:29

Up.
Même question : j'ai essayé de traduire bêtement la syntaxe du code en VBScript, mais ça ne tourne pas. Quelqu'un a une idée ?
(Pour info, c'est le VBA qui est utilisé par Excel. Mais les 2 langages sont proches)

Commentaire de daviddubois le 12/07/2006 09:55:45

Bonjour Capuccino_fr, bonjour tout le monde,

J'utilise VB.net avec visual studio 2003.

Malheureusement, ton code ne fonctionne pas chez moi.

Je pilote excel avec Vb.net et j'aimerais qu'il arrête le processus de Excel quand il a fini car j'utilise mon programme 20 fois par jour et hier, je me suis rendu compte qu'il y avait 20 processus de Excel ouvert.

Voici le code que j'utilise (pour fermer le processus ) :

'Fermeture des instances de APPLICATION_A_KILLER si ces applis sont ouvertes

        Dim Prc() As Process = Process.GetProcesses() 'on récupère la liste des processus de Windows: ATTENTION ce sont des tableaux
        For x As Integer = 0 To UBound(Prc) 'on fait toute la liste dans une boucle
            If Prc(x).ProcessName.ToUpper() = "EXCEL.EXE" Then 'Cette application nous embete ?
                Prc(x).Kill() 'on la tue !!!!
            End If
        Next

Ais-je fais une erreur ?

Merci pour ton (votre) aide.

Commentaire de daviddubois le 12/07/2006 10:32:41

Salut,

Merci pour ta réponse rapide et efficace.

En effet il supprime le processus EXCEL.

Par contre, je pense que ta solution (qui est extraordinaire pour supprimer un processus) n'est pas adapté à mon problème.

Je t'explique :

J'ai un WindowsForm avec 5 boutons.

Quand je clique sur bouton1, un datagrid se lance, un bouton près du datagrid me permet d'envoyer les données vers excel.

Quand j'appuie sur ce bouton, le fichier Excel se lance, se remplit.

Je regarde les processus, EXCEL.EXE est présent au moment ou j'appuie sur le bouton près du datagrid.

Quand je ferme excel, le processus EXCEL.EXE ne se ferme pas.

Je retourne sur le menu principal de mon appli, j'appuie sur bouton2,  j'appuie sur le bouton du datagrid, excel se lance, se remplit et je ferme Excel, le processus ne part pas ---> deux processus excel déjà lancé.

Je refais la même chose avec bouton3 , 4 et 5 j'ai donc 5 processus Excel lancé.

Pour ma machine, ça passe vue que j'ai 1GB de mémoire mais je vais devoir installer cette application sur des machines n'ayant que 512 MB de RAM et là c'est plus gênant.

Par contre, quand je ferme l'application, tous les processus s'en vont.

Qu'en penses-tu ?

Merci encore pour ton aide.

DD

Commentaire de capuccino_fr le 12/07/2006 11:52:07

je te dirai de mettre une fonction TerminerProcessus :

public sub TerminerProcessus ( NomProcessus as string)
       Dim Prc() As Process = Process.GetProcesses()
        For x As Integer = 0 To UBound(Prc)
            If Prc(x).ProcessName.ToUpper() = NomProcessus.ToUpper Then
                Prc(x).Kill() 'on la tue !!!!
            End If
        Next
end sub

et a chaque fois que tu appuies sur le bouton suivant (n°2, n°3 etc), tu fais appel a cette fonction AVANT de lancer l'autre excel. C'est a dire que lorsque tu appuies sur le bouton, tu lances:
declaration de ta fonction

sub Bouton_click() handles ....

TerminerProcessus("EXCEL")
application.doEvents 'etre sur que la fonction se termine avant la suite

--- Le reste de ton code : appel a excel et remplissage
end sub

Dis nous si ca fonctionne
@+
ben

Commentaire de tigre44 le 19/01/2007 14:55:44

Merci pour cette source, simple à comprendre et fonctionne trés bien.

Commentaire de capuccino_fr le 24/04/2007 17:53:55

de rien. si ca t'a sauvé la vie, j'en suis heureux ;) !!!!!!!!!!!!!!!!
@ bientot

Commentaire de ABF le 25/05/2009 10:55:37

Bonjour,

Faire un while avec un test de kill ne serais pas plus optimisé en temps ?

(exemple algo)
i=0
isKill=false
While i < nbProcs or isKill = false
  if procName = "nom rechercheé" then
     kill proc
     isKill = true
  else
     i+=1
  end if
Wend