Terminer un processus Excel

Bonjour,

n'ayant toujours pas trouvé de solutions pour terminer un processus Excel après l'appel à xlswrite, je suis à la recherche d'une fonction permettant de lister les processus windows ouverts.

Ainsi, il me suffirait (comme dans l'exemple suivant sous un autre language) de chercher les processus sous le nom "EXCEL.EXE" et de regarder leur date de création pour être sûr de terminer le bon.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function CloseXl(ByVal t As Date) Dim i As Integer Dim p() As Process p = Process.GetProcessesByName("EXCEL")   For i = 0 To p.Length - 1 If p(i).StartTime >= t And p(i).StartTime < t.AddSeconds(1) Then p(i).Kill() End If Next   End Function

---

Merci pour votre aide.

Peut être un début de réponse : Fermer une fenetre d'un programme DOS

Merci Dut pour ta réponse, cette commande est en effet très utile ^^

Mais... car y'en a toujours un lol voilà le problème qui survient :

Avant mon "taskkill" je liste les processus Excel ouverts avec "tasklist":

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

>> [status, task]=dos('tasklist /fo "TABLE" /v /FI "IMAGENAME eq EXCEL.exe" ')   status =   0     task =     Nom de l'image PIDÿ Nom de la sessio Num‚ro d Utilisation tatÿ Nom d'utilisateurÿ Temps proces Titre de la fenˆtreÿ ========================= ====== ================ ======== ============ =============== ================================================== ============ ======================================================================== EXCEL.EXE 3856 Console 0 18ÿ076 Ko En service FR001\fr232436 0:00:00 CiceroUIWndFrame EXCEL.EXE 2392 Console 0 19ÿ516 Ko En service FR001\fr232436 0:00:00 Microsoft Excel - DATA_5_AW1_COMP.xls

---

Et je remarque que par enchantement les processus Excel posant problèmes sont ceux répondant au doux nom de " CiceroUIWndFrame ".

Alors super, comme je peux les identifier j'ai plus qu'à faire un taskkill sur ceux portant ce nom ; voilà le résultat :

Code:

---

1 2 3 4 5 6 7

>> dos('taskkill /FI "IMAGENAME eq EXCEL.exe" /FI "WINDOWTITLE eq CiceroUIWndFrame') Op‚ration r‚ussie : le processus avec PID 3856 a ‚t‚ termin‚.   ans =   0

---

Donc là je me dis génial ça fonctionne !
Et lorsque je refais un "tasklist" voilà ... :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

>> [status, task]=dos('tasklist /fo "TABLE" /v /FI "IMAGENAME eq EXCEL.exe" ')   status =   0     task =     Nom de l'image PIDÿ Nom de la sessio Num‚ro d Utilisation tatÿ Nom d'utilisateurÿ Temps proces Titre de la fenˆtreÿ ========================= ====== ================ ======== ============ =============== ================================================== ============ ======================================================================== EXCEL.EXE 3856 Console 0 18ÿ092 Ko En service FR001\fr232436 0:00:00 N/D EXCEL.EXE 2392 Console 0 19ÿ664 Ko En service FR001\fr232436 0:00:00 Microsoft Excel - DATA_5_AW1_COMP.xls

---

Donc mon processus est encore là et seul le nom a changé, il n'existe plus :///

Je n'y comprend pas grand chose à vrai dire lol :?

Bon, j'ai trouvé ma réponse tout seul comme un grand par pur hasard :D

Alors en fait un seul "taskkill" ne suffit pas car il semble qu'un processus puisse avoir plusieurs " niveaux de référencement " (désolé pour la formulation je ne vois pas comment dire autrement) et pour vraiment le tuer si son niveau de référencement est de 7 il faut appliquer 7 fois "taskkill" dessus jusqu'à arriver à un niveau de 0.

Ma solution est donc de boucler tant qu'il existe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

[status, task]=dos('tasklist /fo "CSV" /v /nh /FI "IMAGENAME eq EXCEL.exe"'); if status h_err = warnbox('Ne marche que sur Windows XP.','Attention'); uiwait(h_err); else boucler = strfind(task,'EXCEL.EXE'); while ~isempty(boucler) dos('taskkill /FI "IMAGENAME eq EXCEL.exe"'); [status, task] = dos('tasklist /fo "CSV" /v /nh /FI "IMAGENAME eq EXCEL.exe"'); boucler = strfind(task,'EXCEL.EXE'); end end

---