Heu, j'ai une bonne et une mauvaise nouvelle...
La bonne c'est qu'on peut trouver le handle de la fenetre de code de cette maniere :
'------------------------------------------
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
VB6 = FindWindow("wndclass_desked_gsk", vbNullString)
Mdi = FindWindowEx(VB6, 0, "MDIClient", vbNullString)
VbaWindow = FindWindowEx(Mdi, 0, "VbaWindow", vbNullString)
'------------------------------------------
Mais le probleme c'est que cette fenetre, ne possede pas de zone de texte exploitable, je ne vois comment elle fonctionne...
Donc, si tu veux vraiment trouver une solution, j'en ai deux : soit continuer sur cette voie et peut-être que l'on trouvera quelque chose, soit tu fais un prog qui simuler un debugage mais ca necessite pas mal de code je pense !!
DarkSpirit
Chef du projet CDD, www.chroniquedesdamnes.fr.st