Discussion :

[Chewi]

Re le forum,

Il y a quelques mois, Bbil (principalement), silkyroad et caféïne m'avaient apporté de l'aide dans ce post:
http://www.developpez.net/forums/sho...1&postcount=16

Il s'agissait d'ouvrir et de fermer une application externe à Windows.

Je voudrais désormais savoir s'il y avait moyen de tester si cette application externe est ouverte ou non.

Si oui, comment l'activer?

Donc 2 questions:

- comment tester
- comment l'activer si elle est ouverte

Dans le but d'écrire un code de ce genre:

Code :

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

1
2
3
4
If Application.Opened Then
Activate Application
Else Shell
End If

Un grand merci à celui qui n'aura pas peur de passer du temps, à moyen que ce ne soit plus simple qu'il n'y paraît.

[SfJ5Rpw8]

ben toujours la ... :

Comment lister les processus actifs sans utiliser l'API Windows (Win2000 et >) ?

ton application externe .. apparaît-elle dans la liste généré par le debug.print ( fenêtre exécution CTRL G)

[Chewi]

Le problème, est qu'une fois qu'on entre là dedans, j'ai beaucoup de mal.

Bon, j'ai essayé, il me crée bien une liste de tous les processus dont mon application en question mais elle apparaît aussi bien ouverte que fermée.

Mais à partir de toute cette liste, comment écrire dans mon code:
Si application ouverte l'activer (la faire venir au 1er plan). ?

Bon, je continue à scruter cette FAQ mais j'aurai vraiment besoin d'aide, c'est pas de la mauvaise fois.

Merci bbil

[ouskel'n'or]

Si tu connais le nom du processus que tu veux détecter alors ce code devrait t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ProcessusActifs()
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process"
    For Each oproc In svc.execQuery(sQuery)
        Debug.Print oproc.Name
        If oproc.Name = "Excel.exe" Then MsgBox oproc.Name & " est actif !"
    Next
    Set svc = Nothing
End Sub

Je ne sais plus à qui je dois ce code. S'il peut te servir, je ne l'aurai pas gardé pour rien
A+

[choucks]

Salut

- comment l'activer si elle est ouverte

Si par activer tu entends mettre au premier plan à l'écran voici quelles lignes qui pourraient t'aider

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
 
Option Explicit
 
Private Declare Function BringWindowToTop Lib "user32" _
(ByVal hwnd As Long) As Long
 
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Const SW_SHOWNORMAL = 1
 
Private Sub AfficherHlp()
'Met au premier plan la fenetre
'mots clé : api fenêtre au premier plan
'Source : http://www.developpez.net/forums/archive/index.php/t-190139.html
'Auteur : Silky Road
 
'activer la référence "Microsoft Internet Controls"
' !!!! Ne fonctionne pas si exection depuis VBE, executer via  un bouton, ou barre VBA!!!!
 
Dim IE As New InternetExplorer
Dim winShell As New ShellWindows
Dim x As Long
 
On Error Resume Next
For Each IE In winShell
If IE.LocationURL = "http://www.developpez.net/forums/" Then
    x = IE.hwnd
    Exit For
End If
Next IE
 
 
BringWindowToTop x
ShowWindow x, SW_SHOWNORMAL
 
End Sub

[Chewi]

Bonjour et déjà merci à tous,

J'essaie de faire un mix des deux (c'est exactement les deux parties du code qu'il me faut) et je vous tiens au courant.

Ps Ouskel'nord: tu n'as pas gardé ce fichier pour rien

Ps choucks:

' !!!! Ne fonctionne pas si exection depuis VBE, executer via un bouton, ou barre VBA!!!!

Qu'entends-tu par "barre VBA" ?
Que puis-je faire et ne pas faire?

Merci à vous