Bonjour,
essaye peut être ainsi :
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 l'usf :
événement click d'un bouton permettant de revenir à l'affichage de l'appli
Option Explicit
Private Sub CommandButton1_Click()
Application.Visible = True
Application.WindowState = xlMaximized
Unload Me
End Sub
événement "QueryClose" qui se produit lorsque l'on click sur la croix de fermeture de l'usf
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
Application.WindowState = xlMaximized
End Sub
je te conseillerais en outre d'utiliser une gestion d'erreur dans les différentes procédures de ton usf, permettant le retour à l'affichage normal en cas de bogue....
On errror GoTo fin
'ton code
Exit Sub
fin:
Application.Visible = True
Application.WindowState = xlMaximized
End Sub
bonne fin d'après midi
@+