Macro avec autre logiciel

Option Explicit 

Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long 
Private Declare Function GetDesktopWindow Lib "user32" () As Long 

Sub ListeFenetresOuvertes() 
Dim hWnd As Long 
Dim Titre_Fenetre As String * 255 
Dim TitreFen As String 
Dim ret As String 
Dim j As Long 
hWnd = GetWindow(GetDesktopWindow(), 5) 
Do While (Not IsNull(hWnd)) And (hWnd <> 0) 'Passe en revue chaque fenêtre 
      Titre_Fenetre = String(255, 0)  'Formate la chaine destinée à accueillir le titre de la fenêtre 
      ret = GetWindowText(hWnd, Titre_Fenetre, 255)   'récupère le titre de la fenêtre et le nombre de caractères de ce titre 
      If Titre_Fenetre <> String(255, 0) Then             'Si le titre n'est pas vide 
            If IsWindowVisible(hWnd) = 1 Then                   'Pour ne tenir compte que des fenêtres visibles (regardez ce que ça donne en retirant cette condition) 
               TitreFen = Titre_Fenetre        'récupère le titre de la fenêtre 
               TitreFen = Left(TitreFen, ret)  'sans les caractères supplémentaires finaux 
               j = j + 1 
               Sheets("Feuil1").Range("A" & j) = TitreFen 
               Sheets("Feuil1").Range("B" & j + 1) = Titre_Fenetre 
               j = j + 1 
            End If 
      End If 
      hWnd = GetWindow(hWnd, 2) 'cherche la fenêtre suivant 
Loop 
End Sub