Discussion :

[stos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Handle = FindWindowA(vbNullString, Application.Caption)

ou bien celui d'un formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

En déclarant ainsi FindWindowA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...
Stos