Userform Excel "always on top" Possible ? [Résolu]
cs_cobra200825
Messages postés mardi 24 juillet 2007Date d'inscription
27 août 2010
Dernière intervention
-
2 nov. 2007 à 13:54 - Dernière réponse : Moy22BZH3
Messages postés mardi 1 août 2006Date d'inscription
17 janvier 2008
Dernière intervention
- 17 janv. 2008 à 21:09
Bonjour,
je début en VBA (Excel) et pour mon application, j'aurais voulu savoir s'il est possbile de pour rendre un userform toujours visible même en commutant entre applications, ex :
avoir le userform visible au dessus des autre applications lorsque je passe de excel vers IE ou Outlook (ou tout autre programme)??
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal
nom_classe As String, _
ByVal nom_fenetre As String) As Long
2. fct rend la fenêtre always on top
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal
param1 As Long, ByVal x As Long, ByVal y As Long, _
ByVal largeur As Long,
ByVal hauteur As Long, _
ByVal param2 As Long) As Long
3. le code
nom_fenetre = nom de la fenetre
cs_scotty594
Messages postés mardi 6 novembre 2007Date d'inscription
6 novembre 2007
Dernière intervention - 6 nov. 2007 à 11:48
0
Utile
Bonjour, j'ai exactement le meme cas
j'essai de developper un outil qui me lance un formulaire à une heure donnée. Pour cela j'utilise application.ontime -->pas de pb
ça fait maintenant 3 jours que je cherche le moyen de faire apparaitre ce userform en premier plan mais rien n'y fait.
j'ai voulu utiliser le code de xavier666 pour faire apparaitre le userform mais j'ai un message d'erreur "incompatibilité de type" sur la fonction findwindow
Salut Scotty 59,
voila comment j'ai fait avec comme base le code de xavier66 (pour la récupération du handle de la fenêtre, j'utilise une autre fonction) :
1/ je crée un module de classe que je nomme CustomProperties (nom pouvant changer)
dans ce module de classe je met le code suivant :
' Fonction d'acquisition de l'identifiant de la fenêtre active
Private Declare Function GAW Lib "user32" Alias "GetActiveWindow" () As Long
'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
Private Whdl As Long
'*** Acquisition du Handle de la Userform ***
'*** pour initialisation ***
Public Function Initialisation()
Whdl = GAW
End Function
'Fonction toujours Visible, necessité d'appeler la fonction initialise avant celle-ci (pour avoir le handle de la userform)
Public Function forward()
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(Whdl, -1, 0, 0, 0, 0, Flags)
End Function
'annuler toujours visible,necessité d'appeler la fonction initialise avant celle-ci (pour avoir le handle de la userform)
Public Function backward()
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
Resultat = SetWindowPos(Whdl, -2, 0, 0, 0, 0, Flags)
End Function
2/Dans mon userform, dans la fonction Private Sub UserForm_Activate(), je me le code suivant
Private Sub UserForm_Activate()
Me.CustomProperties.Initialisation 'Acquisition du Handle de la Userform
Me.CustomProperties.forward 'Permet de mettre la calculatrice en toujours visible (always on top)
End Sub
cs_scotty594
Messages postés mardi 6 novembre 2007Date d'inscription
6 novembre 2007
Dernière intervention - 6 nov. 2007 à 13:19
0
Utile
salut, j'ai bien utilisé tes fonctions mais une erreur de compilation "membre de methode ou données introuvables" apparait
j'ai bien nomme le modul de classe etc...
merci pour le coup de main ..;je suis trop mauvais
Autant pour moi, j'ai oublié de te dire une chose (et j'ai fait une erreur....),
1/dans le code de ta userform, il faut mettre :
' Variable global au useform on attache la variable au module de classe
Public MyPropriety As CustomProperties 'CustomProperties étant le module de classe
2/et du coup, la fonction Private Sub UserForm_Activate() devient
Private Sub UserForm_Activate()
Me.MyPropriety.Initialisation 'Acquisition du Handle de la Userform
Me.MyPropriety.forward 'Permet de mettre la calculatrice en toujours visible (always on top)
End Sub
cs_scotty594
Messages postés mardi 6 novembre 2007Date d'inscription
6 novembre 2007
Dernière intervention - 6 nov. 2007 à 14:47
0
Utile
effectivement, je n'ai plus d'erreur
par contre je lance mon timer, je me met sur outlook(exemple) et la fenetre ne se met toujours pas en premier plan (il faut que je clic sur excel pour voir mon formulaire)
c'etait le pourquoi de l'ouverture de cette discussion. pour toi ça marche?
oui, cela fonctionne pour moi, j'ai fait l'essai, si tu a un mail, je peux te passer mon fichier excel pour que tu puisse voir si cela fonctionne chez toi....
(Pour rappel, mon programme, cache Excel et affiche un userform)
cs_scotty594
Messages postés mardi 6 novembre 2007Date d'inscription
6 novembre 2007
Dernière intervention - 6 nov. 2007 à 14:55
0
Utile
ok ok
j'ai vu...effectivement quand tu switch d'appli via la barre de menu le userform reste en premier plan...
ce que je voudrait en plus ce que le userform apparaisse en premier plan meme si tu es en train de bosser sur une autre appli
c est faisable?
merci (c'etait le temps que l'info arrive au cerveau)
oui, mon appli le fait (je suis sous Word par exemple, eet je double clic sur mon fichier Excel, et l'appli apparait devant word)
en fait, qd excel s'ouvre, je le cache et je met mon userform en alway on top, et quand je ferme mon appli, je ferme en mêm temps Excel.
Si tu le shoutaite, je peux t''envoyer par mail un exemple de fichier Excel qui fait ce que tu veux (si j'ai tout compris)..
Moy22BZH3
Messages postés mardi 1 août 2006Date d'inscription
17 janvier 2008
Dernière intervention -10 janv. 2008 à 16:38
0
Utile
Bonjour à tous.
Je débute vraiment en vb sous excel et je n'ai pu mettre en route les codes proposés sur la première page.
Pourriez-vous mettre à dispo un petit fichier xls de démo ?
Merci beaucoup !
