Discussion :

[Invité(e)]

Bonjour !


Voila j'ai un petit souci

le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité(e)]

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

[Sclarckone]

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.

[Invité(e)]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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