Minimized et Userform

[Troudz]

Bonjour,

Je désespère de trouver une solution malgré toutes mes recherches.
Au démarrage de mon fichier, je voudrais masquer Excel et n'afficher que mon userform.
J'utilise pour cela :

Private Sub Workbook_Open()
    Application.WindowState = xlMinimized
    Userform1.Show vbModeless
End Sub

Mon soucis est que, si l'on passe sur une autre application puis que l'on revient sur mon fichier, Excel apparaît de nouveau.

J'ai bien essayé de faire :

Private Sub Workbook_Activate()
    Application.WindowState = xlMinimized
End Sub

et même :

Private Sub UserForm_Activate()
    Application.WindowState = xlMinimized
End Sub

mais rien n'y fait.

Pourriez vous m'aider ?

Merci d'avance.

 

[Pierrot93]

Re : Minimized et Userform

Bonjour,

essaye ceci :
dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
Application.Visible = False
UserForm1.Show 0
End Sub

dans le module de ton USF :

Option Explicit
'bouton servant à fermer l'usf et réafficher l'appli
Private Sub CommandButton1_Click()
affichage
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
affichage
End Sub
Sub affichage()
With Application
    .Visible = True
    .WindowState = xlMaximized
End With
End Sub

il est préférable de gérer les erreurs dans les différentes procédures pouvant être exécutées via l'usf :

Sub Proc()
On errror GoTo fin
'ton code
Exit Sub
fin:
affichage
End Sub

bonne journée
@+

 

[Troudz]

Re : Minimized et Userform

Désolé Pierrot93, je me suis peut être mal fait comprendre.
Je n'ai pas besoin de fermer (ou maquer) mon userform pour repasser sur Excel.

Mon problème c'est qu'au démarrage, Excel est bien minimisé mais si je change d'application (je passe sur IE, l'Explorateur ou n'importe quelle application), lorsque je clique sur Excel dans barre des taches (ou que je fais Alt + Tab), Excel réapparaît en maximisé derrière mon Userform.

 

[Pierrot93]

Re : Minimized et Userform

Re,

comprends pas trop, avec le code proposé, Excel n'est plus visible chez moi dans la bare des tâches... il ne réapparait qu'à la fermeture de l'usf.... je vois sur d'autres appli et ne réapparait pas.... sans doute quelque chose doit m'échapper...

 

[Troudz]

Re : Minimized et Userform

Re,

Je ne veux pas faire disparaître Excel de la barre des taches. Je veux juste qu'il n'apparaisse pas en fond (derrière mon USF).

 

[Pierrot93]

Re : Minimized et Userform

Re,

dans le code proposé, enlève toutes les lignes concernant l'application :

Application.Visible = False 'ou True

 

[Troudz]

Re : Minimized et Userform

Ok je vais essayer ça.

Merci beaucoup