Discussion :

[Badplayer1603]

Bonjour à tous,

Nous avons en prod tout un tas d’exécutables VB qui produisent des fichiers excel.
Il arrive parfois qu'il reste des procesus excel alors qu'aucun exécutable n'est en cours d’exécution.
Cela pose problème lors des exécutions suivantes.
J'ai vérifié que nos programmes fermaient bien les procesus excel. De plus, nous avons une gestion des erreurs qui force la fermeture des excels en cas d'anomalie. Malheureusement nous ne sommes pas à l'abri d'une erreur de programmation.
Y aurait il un moyen de récupérer l'affichage des processus excel restés ouvert pour identifier le/les programmes coupables?

Merci d'avance pour votre aide.

[l_autodidacte]

Bonjour;
Je ne sais pas si cela peut aider ou non, mais voici une petite proposition :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim  WS As Object, ExlApp As Object
 
 Set WS = CreateObject("WScript.Shell")
  On Error Resume Next ' sans cette ligne, GetObject ne passera pas s'il n'y a pas d'instance(s) d'Excel.
  Set ExlApp =GetObject(,"Excel.Application")
  If  ExlApp Is Nothing Then
      MsgBox ExlApp & " is not running or loaded"
  Else 
	 Msgbox ExlApp & " is running and loaded"
	 WS.AppActivate ExlApp
	 ExlApp.Visible = True
	 ExlApp.Quit  ' Ferme l'instance si elle existe
  End If

[Badplayer1603]

Je test ça tout de suite et te fais un retour.

Merci de ta proposition.

[Badplayer1603]

Ça fonctionne bien,

j'aurais voulu, dans le cas où il y a plusieurs processus, boucler pour tous les afficher.
Peut on parcourir et distinguer les différents processus excel?

Merci.

[l_autodidacte]

Salut;

Dans ce cas, on change de stratégie et c'est plus court et plus propre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process",,48) 
cnt = 0
For Each objItem in colItems 
    If UCase(objItem.Caption) = "EXCEL.EXE" Then
	cnt = cnt + 1
	objItem.Terminate
    End If
Next
MsgBox "Il y avait " & CStr(cnt) & " instance(s) d'Excel active(s)"

Ne pas oublier de déclarer et typer les variables utilisées(Je n'ai pas VB6 sur la machine que j'utilise en ce moment). De toute façon, les variables précédées du mot réservé "Set" sont de type "Object" ainsi que objItem ; cnt est du type "Integer" ( tout vérifier pendant l'exécution)