Comment lister toutes les applications ouvertes (en cours d'exécution) dans Excel ?

En réalité, vous pouvez lister toutes les applications ouvertes qui ne s'affichent que lorsque vous appuyez sur les touches Alt + Tab de votre ordinateur dans Excel en exécutant un code VBA. La méthode décrite dans cet article peut vous aider.

Lister toutes les applications ouvertes (en cours d'exécution) avec un code VBA

Lister toutes les applications ouvertes (en cours d'exécution) avec un code VBA

Veuillez suivre les étapes ci-dessous pour lister toutes les applications ouvertes dans Excel.

1. Dans un classeur Excel, veuillez appuyer simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, appuyez sur Insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre Code. Voir capture d'écran :

Code VBA : Lister toutes les applications ouvertes dans Excel

Private Declare PtrSafe Function apiGetClassName Lib "user32" Alias _
                "GetClassNameA" (ByVal Hwnd As Long, _
                ByVal lpClassname As String, _
                ByVal nMaxCount As Long) As Long
Private Declare PtrSafe Function apiGetDesktopWindow Lib "user32" Alias _
                "GetDesktopWindow" () As Long
Private Declare PtrSafe Function apiGetWindow Lib "user32" Alias _
                "GetWindow" (ByVal Hwnd As Long, _
                ByVal wCmd As Long) As Long
Private Declare PtrSafe Function apiGetWindowLong Lib "user32" Alias _
                "GetWindowLongA" (ByVal Hwnd As Long, ByVal _
                nIndex As Long) As Long
Private Declare PtrSafe Function apiGetWindowText Lib "user32" Alias _
                "GetWindowTextA" (ByVal Hwnd As Long, ByVal _
                lpString As String, ByVal aint As Long) As Long
Private Const mcGWCHILD = 5
Private Const mcGWHWNDNEXT = 2
Private Const mcGWLSTYLE = (-16)
Private Const mcWSVISIBLE = &H10000000
Private Const mconMAXLEN = 255

Sub ListName()
    Dim xRg As Range
    Dim xStr As String
    Dim xStrLen As Long
    Dim xHandle As Long
    Dim xHandleStr As String
    Dim xHandleLen As Long, xHandleStyle As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select a range（single cell）：", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg(1).Activate
    xHandle = apiGetWindow(apiGetDesktopWindow(), mcGWCHILD)
    Do While xHandle <> 0
        xStr = String$(mconMAXLEN - 1, 0)
        xStrLen = apiGetWindowText(xHandle, xStr, mconMAXLEN)
        If xStrLen > 0 Then
            xStr = Left$(xStr, xStrLen)
            xHandleStyle = apiGetWindowLong(xHandle, mcGWLSTYLE)
            If xHandleStyle And mcWSVISIBLE Then
                ActiveCell.Value = xStr
                ActiveCell.Offset(1, 0).Activate
            End If
        End If
        xHandle = apiGetWindow(xHandle, mcGWHWNDNEXT)
    Loop
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools for Excel qui apparaît, sélectionnez une cellule où vous souhaitez lister toutes les applications en cours d'exécution, puis cliquez sur le bouton OK. Voir capture d'écran :

Maintenant, toutes les applications ouvertes sont immédiatement listées dans la colonne sélectionnée comme le montre la capture d'écran ci-dessous.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes :

• Comment lister toutes les occurrences correspondantes d'une valeur dans Excel ?
• Comment lister tous les jours sous forme de date dans un mois spécifié dans Excel ?