Bonjour,

J'ai un problème qui dure depuis maintenant trop longtemp et j'ai tout essayé pour le corriger hors sa marche tj pas donc je fait appel a vous !!!

Je veux juste integrer parfaitement une instance d'excel dans une application VB6.

Jutilise pour cela l'API Setparent qui fonctionne très bien !
Mais je n'arrive pas à redimentionner mon excel pour qu'il prenne la taille de ma fenêtre ! (MoveWindows)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
MoveWindow(m_objExcel.hWnd, 0, 0, Me.Width, Me.Height, True)
Si dans le fenêtre d'execution je verifie le top de ma fenetre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
?m_objExcel.top
24678
Voila le resultat !!!!!! hors il devrai etre a 0 !

je comprend rien.... surtout qu'en dot net sa fonctionne à merveille !

Pour info voici ma declaration :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Public Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, X As Long, Y As Long, nWidth As Long, nHeight As Long, bRepaint As Boolean) As Long