Tester si un programme est ouvert.

[Arnaud61]

Bonjour,

Voilà mon problème...

Dans un fichier Excel, j'ai un bouton qui permet de lancer un exécutable.

Pour cela, j'ai récupéré une "Function" sur le net:

Function ExistenceFichier(sFichier As String) As Boolean
  ExistenceFichier = Dir(sFichier) <> ""
End Function

Ensuite dans la variable: "sFichier" je renseigne le chemin où se trouve mon exécutable...

Maitenant, il me faudrait une fonction permettant de tester si le programme est ouvert ou pas.

Le problème est que si je clique 2 fois sur mon bouton, il va m'ouvrir 2 fois le logiciel...

Merci de votre aide.

 

[tototiti2008]

Re : Tester si un programme est ouvert.

Bonjour Arnaud61,

Peut-être avec un GetObject, mais il faudrait savoir quel est ton executable (ou au moins quel genre d'executable)...

 

[Arnaud61]

Re : Tester si un programme est ouvert.

Merci pour l'info! Je vais essayer de chercher vers le GetObject.

L'exécutable lance un logiciel de traitement de données avec une interface graphique, il se trouve dans "C:\Program files\..."

Ce n'est pas un logiciel Office ou propre à windows...

N.B: Je pense à autre chose...

Est-il de possible de dire en VB:

Regarde dans l'onglet "Processus" du gestionnaire des tâches de Windows.

Si tu vois le processus "toto.exe" etc... ?

 

[Arnaud61]

Re : Tester si un programme est ouvert.

Résolu!

Pour info, j'ai trouvé la solution sur cette page:

Comment faire pour fermer par programmation une instance unique d'un programme Windows