Declare PtrSafe Function ChildWindowFromPoint Lib "user32" Alias "ChildWindowFromPoint" (ByVal hWnd As LongPtr, ByVal Point As LongLong) As LongPtr
EnumChildWindows WH, AddressOf EnumChildWindowsFunc, 0
GetControlHandleByEnumChildWindows = ControlHandle
Debug.Print "Avant EnumChildWindows"
EnumChildWindows WH, AddressOf EnumChildWindowsFunc, 0
Debug.Print "Après EnumChildWindows"
GetControlHandleByEnumChildWindows = ControlHandle
Private Function EnumChildWindowsFunc(ByVal ChildWH As LongPtr, Param As Long) As Boolean
Dim ChildWR As RECT
Dim ClassName As String
EnumChildWindowsFunc = True
ClassName = GetClassNameStr(ChildWH)
Debug.Print ClassName & " " & GetWindowName(ChildWH)
Tu veux dire ça ?je pense avoir déterminé pourquoi windowfrompoint en 64 ne fonctionne pas