Erreur compilation. Attendu : Sub ou Fonction

Salut

personne peut m'expliquer cet erreur de quoi s'agit elle?et quelle est la solution pour résoudre ce problème,

Erreur compilation. Attendu : Sub ou Fonction

    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

je vous remercie

Bonjour, il s'agit de l'api pour trouver et identifier le handle de la fenêtre.

Il n'y a pas d'erreur, mais si tu es en 64bits, tu dois l'adapter

#If VBA7 Then
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

#Else
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

#End If

Pourquoi Declare 2 ___________

mets ceci

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)