Afficher un userform au premier plan [Résolu]

Bonjour !


Voila j'ai un petit souci

le code :

Code :

1
2
3
4
5
6
7
 
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
Load Userform1
Userform1.Show
 
End Sub

dans ce code quand j'ouvre mon document il se minimise avec le userform
alors comment afficher le userform au premier plan ?


Merci a vous !

[Sclarckone]

...en ne minimisant pas ton classeur Excel à l'ouverture

t'es un sacre numéro toi
j'accepte mais moi je veux le classeur minimise est le userform au premier plan

[Sclarckone]

Envoyé par biyob0

j'accepte mais moi je veux le classeur minimise est le userform au premier plan

Je ne sais pas comment on peut faire ça.

Si je devais me risquer à donner un avis je dirais même que ce n'est pas possible. En effet, quand tu regardes ton arbre de projet, les userforms appartiennent toujours à un classeur Excel donné et je pense donc qu'ils ne peuvent apparaitre qu'à "l'intérieur" de celui-ci.

bien dit
qui est d'accord ?

[Arkham46]

bjr,

appactivate pour réafficher le userform après "minimisation" de l'appli

par exemple dans un UserForm :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
 
Private WindowStateBefore As Long
 
Private Sub UserForm_Initialize()
WindowStateBefore = Application.WindowState
Application.WindowState = xlMinimized
AppActivate Application.Caption
End Sub
 
Private Sub UserForm_Terminate()
Application.WindowState = WindowStateBefore
End Sub

ca ne marche pas Merci comme même !
vaut mieux jouer avec la visibilité ....
comme j'ai mentionné dans la discussion précédente
http://www.developpez.net/forums/d11...-ouvrir-excel/

[Arkham46]

Envoyé par biyob0

ca ne marche pas

on n'est pas avancé sans plus d'infos

Envoyé par biyob0

vaut mieux jouer avec la visibilité ....
comme j'ai mentionné dans la discussion précédente
http://www.developpez.net/forums/d11...-ouvrir-excel/

ok si ça te convient, mais sur mon PC (excel 2003 ou 2007) l'application disparaît de la barre des tâches et ça n'est pas pratique

oui tout a fait
c'est pour ça qu'il faut mettre un button pour le faire réapparaitre

Code :

1
2
3
4
5
 
Private Sub CommandButton2_Click()
Unload Me ' fermer le UserForm
Application.Visible = True  ' Faire réapparaitre l'application
End Sub