Discussion :

[azertym]

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 !

[kiki29]

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

[Theze]

Bonjour,

Avec des Api :

Code :

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

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/

[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.