Vérifier si un programme est en cours d'execution

Version imprimable

07/03/2012, 11h49
azertym

Vérifier si un programme est en cours d'execution

Bonjour à tous,

Je souhaiterai savoir si il est possible d'analyser qu'un certain programme est en cours d’exécution, j'ai vu qu'en VB.net cela était possible mais aucune piste concernant le VBA.

En fait j'ai une application java qui tourne et j'aimerai qu'avant chaque macro, un code vérifie si l'application est déjà lancée ou non. Si ce n'est pas le cas alors la macro lance l'application.

Merci d'avance !
07/03/2012, 17h33
kiki29

Salut, voir par exemple sur http://www.developpez.net/forums/d99...outlook-lance/ et adapter à ton contexte

Bonjour,

Avec des Api :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Public Declare Function GetWindowText _
               Lib "user32" _
               Alias "GetWindowTextA" ( _
               ByVal hWnd As Long, _
               ByVal lpString As String, _
               ByVal cch As Long) As Long
 
Public Declare Function EnumWindows _
               Lib "user32" ( _
               ByVal lpEnumFunc As Long, _
               ByVal lParam As Long) As Long
 
Dim Ouvert As String
Dim NomProg As String
 
'proc de test, à adapter :
Sub Test()
 
    Dim lResult As Long
 
    NomProg = "Word" 'cherche si Word est ouvert
 
    lResult = EnumWindows(AddressOf ProgrammeOuvert, 0&)
 
    MsgBox Ouvert
 
End Sub
 
'cherche dans le titre des fenêtres le nom du programme
Public Function ProgrammeOuvert(ByVal hWnd As Long, _
                                ByVal lgParam As Long) As Long
 
    Dim Buffer As String
    Dim Result As Long
 
    Buffer = Space(255)
 
    Result = GetWindowText(hWnd, Buffer, 255)
 
    If Left(Buffer, 1) <> Chr(0) Then
 
        'non sensible à la casse (UCase)
        If InStr(UCase(Trim(Buffer)), UCase(NomProg)) <> 0 Then
 
            Ouvert = NomProg & " est ouvert !"
 
            Exit Function
 
        Else
 
            Ouvert = NomProg & " est fermé !"
 
        End If
 
    End If
 
    ProgrammeOuvert = 1
 
End Function

Hervé.

Et pour bien te former, les cours et tutoriels pour apprendre Excel : https://excel.developpez.com/cours/

09/03/2012, 10h58
azertym

Merci Theze,

En fait je voulais essayer ce code ci mais ca cause beaucoup trop de problème. Trop instable avec une application java, j'ai donc fais 2 macros, une avec login et une autre sans.

Ceci dit ton code marche parfaitement mais dans mon cas, la macro est déjà super ingérable (tout du sendkeys) :s alors je vais éviter de tout rendre automatique en cas d'erreur.