Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ret = ("Legends Of Dramen") WinWnd = FindWindow(vbNullString, ret) If WinWnd = 0 Then msgbox "Votre programme existe pas" End Else msgbox "Votre programme existe" End If