[VBA-E] Problème API FindWindowA

bonjour,
je souhaiterais récupérer le handle d'une feuille Xls. Via cette api, j'obtiens sans problème celui de l'application :

Code:

---

Handle = FindWindowA(vbNullString, Application.Caption)

---

ou bien celui d'un formulaire :

Code:

---

Handle = FindWindowA(vbNullString, UserForm.Caption)

---

Mais je n'arrive pas pour une feuille. Les feuilles n'ont pas de propriété Caption il me semble, j'ai essayé avec Name, mais sans succès.

Qu'en pensez-vous?
Stos

En déclarant ainsi FindWindowA

Code:

---

1 2	Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

---

on peut faire ça :

Code:

---

1 2	MsgBox Handle = FindWindow(vbNullString, ActiveSheet.Name) MsgBox Handle = FindWindow(vbNullString, Sheets("Feuil1").Name)

---

mais j'ignore si ça répond à ton problème :(
Tu dis

en fait, le but du jeux est d'utiliser l'API ScreenToClient qui donne le position de la souris par rapport à un cadre donné:

Code:

---

1 2 3

Public Declare Function ScreenToClient Lib "User32" ( _ ByVal hwnd As Long, _ lpPoint As POINTAPI) As Long

---

Pour cela, il faut le handle de la feuille. Je pense le récupérer en utlisant FindWindow:

Code:

---

1 2	Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

---

J'utilise donc le code suivant :

Code:

---

1 2 3

GetCursorPos pos Handle = FindWindow(vbNullString, ActiveSheet.Name) 'Application.Caption) ScreenToClient Handle, pos

---

Le problème est que ça marche pas super :
Si j'utilise Application.Caption, les coordonnées (0,0) se situent en haut à gauche de la fenêtre Excel.
Si j'utilise ActiveSheet.Name, bizarement, les coordonnées (0,0) se situent en haut à gauche de l'écran.

Et je souhaiterais avoir mon origine (0,0) en haut à gauche de la feuille ...:aie:
Stos