Discussion :

[guda]

Bonjour,

Je cherche à donner le focus à une application.

Je ne peux pas utiliser AppActivate() car l’application change une partie de son nom.

Par exemple, elle s’appelle « logiciel – nbre de connecté 1 ».

J’aurais besoin de parcourir la liste des applications (fenêtre ouverte) à la recherche de celle qui commencerai par « logiciel– nbre de connecté ».

Autant je sais parcourir les process via un objet Process autant là je ne sais pas parser la liste des applications en cours.

Merci pour votre aide

Dan

[Chapeau_Bas]

Bonjour,

Solution:
Utilisez MainWindowTitle.

Voici un exemple:

Code :

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

1
2
3
4
5
6
7
8
9
        Dim ProcessAll() As Process = Process.GetProcesses()
 
        Cbb_NomProg.Items.Add("Choisissez le processus correspondant à votre programme.")
        For i = 0 To UBound(ProcessAll)
            If ProcessAll(i).MainWindowTitle <> "" Then
                Cbb_NomProg.Items.Add(ProcessAll(i).Id & " | " & ProcessAll(i).ProcessName & " | " & ProcessAll(i).MainWindowTitle & " | " & ProcessAll(i).SessionId)
            End If
        Next
        Cbb_NomProg.SelectedItem = "Choisissez le processus correspondant à votre programme."

Ensuite il te suffit de comparer le texte que tu cherches avec le "MainWindowTitle".

Bonne journée.

[guda]

Super, ce code m'a été très utile.

Ce qui donne dans mon cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
                Dim ProcessAll() As Process = Process.GetProcesses()
 
                For i = 0 To UBound(ProcessAll)
                    If ProcessAll(i).MainWindowTitle <> "" Then
                        If InStr(ProcessAll(i).MainWindowTitle, "logiciel...") = 1 Then
                            AppActivate(ProcessAll(i).MainWindowTitle)
                            Exit For ' trouvé, alors on sort
                        End If
                    End If
                Next

Merci beaucoup

Dan