form

comment faire pour qu'une form reste toujours dessu.

voila j'utilise un programme en VB qui utilise excel mais lors de l'ouverture d'excel via mon prog excel vien masquer ma form or il n'y a absolument pas besoin de excel pendant l'utilisation de ce prog.
donc j'aimerai faire en sort que ma form reste dessu meme a l'ouverture d'excel

Tient c'est bizzare moi quand j'appelle Excel depuis mon appli, par défaut il reste caché (l'utilisateur voit pas Excel, hormis dans les processus en cours)

Set Xl = New Excel.Application Xl.Workbooks.Open (App.Path & "\Pointage.xls")

Je ne sais plus comment faire pour avoir une form always on top, mais pourquoi ne pas tenter un Xl.Visible = False des que tu ouvre Excel ?

Dav

Sinon, utilise la fonction API BringWindowToTop qui te permet de la positionner devant toutes les autres fenêtres. Pour plus d'info sur cette fonction, ou pour un exemple concret, télécharge ProgOtoP API Viewer.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

pour ce qui est de bringWindow to top ca ne fonctionne pas et sinon l'idee de metre visible = false ne me convien pas si quel qu'un peu m'aider pour le bringwindows to top merci d'avance @+

Comment ca le birngwindowtotop ne marche pas ? Cette fonction te permet de mettre ta fenêtre au premier plan au dessus de toute les autres... c'est pas ce que tu veux ? Sinon, essaye avec la fonction API SetWindowPos et le style HWND_TOPMOST.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

non non je te h=jure que le bringwindow to top ne marche pas ma fenetre ce fait masquer par Excel lors ce que je lance celui ci

mais avec ta deuxiemme methode ca marche bcp mieu
merci

Ca ca devrait aller

dans un module tu mets :
**********************************************

'API nécessaire pour le mode "toujours visible"
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


Public Function forward(who As Form)
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(who.hwnd, -1, 0, 0, 0, 0, Flags)
End Function
*********************************************

et dans le load de ta form :
*********************************************
forward Me
*********************************************



It@li@