Vérification d'un logiciel ouvert

Bonjour a tous!

je voudrais savoir comment faire pour savoir si un logiciel (appelé CIEL) est ouvert ou pas.

Je veux le savoir en cliquant sur un bouton, qui m'affichera un msgbox.

merci.

Voici mon code pour savoir si Excel est ouvert...
Comme c'est une application sans référence...



private Excel97 as new excel97.application
Sub GetExcel()
Dim ExcelWasNotRunning As Boolean ' Flag for final release.

On Error Resume Next ' Defer error trapping.


Set excel97 = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
ExcelWasNotRunning = True
Err.Clear ' Clear Err object in case error occurred.
End If



If ExcelWasNotRunning = True Then
Set excel97 = CreateObject("Excel.Application")

Else
'Shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE", vbMaximizedFocus

Set excel97 = GetObject(, "Excel.Application")
End If
End Sub


-------------------------------
Réponse au message :
-------------------------------

Bonjour a tous!

je voudrais savoir comment faire pour savoir si un logiciel (appelé CIEL) est ouvert ou pas.

Je veux le savoir en cliquant sur un bouton, qui m'affichera un msgbox.

merci.

Charlie, ton exemple marche nikel pour les softs qui se base sur des objets COM comme word, excel, ....

Pour ciel je suis pas sur que ce soit le cas.

j'utilise la fonction API FindWindow qui permet de récuperer le handle d'une fenÛtre active a partir de sont nom. si la fonction retourne 0 c'est que le soft n'est pas en marche, sinon c'est qu'il l'est.
le nom de la fenêtre correspond au texte affiché dans la barre de titre de la fenetre.

Olvier.

l'exemple test si la calculatrice est lancée ou pas.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Sub Main() Dim hForm As Long '// le handle de la fenetre hForm = FindWindow(vbNullString, "Calculatrice") If hForm > 0 Then '// si on le trouve MsgBox "La calculatrice est active." Else MsgBox "La calculatrice n'est pas active." End If End Sub