Discussion :

[Liloo14]

Bonjour à tous,
J'ai codé ceci à l'ouverture de l'application pour que la fenêtre de l'application, en gros le classeur et ses feuilles, soit minimisée à l'ouverture du programme et se retrouve caché derriere la Userforme qui s'ouvre également à l'ouverture du programme:

Code :

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

Application.WindowState = xlNormal

Ca fonctionne bien.
J'aimerais également que l'application soit centrée au milieu de l'écran lors de cette manipulation pour assurer le fait qu'elle soit cachée. j'ai écris ceci mais ça ne fonctionne pas :

Code :

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

Application.StartUpPosition = ScreenCenter

mais ça bug.
Quelqu'un aurait-il une idée svp ?
Merci par avance

[ctac_]

Bonjour,

Il faut cacher l'appli au demarrage puis bien la rendre visible quand on quitte le UserForm.
Dans ThisWorbook :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
End Sub

Dans UserForm1 :

Code :

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

1
2
3
Private Sub UserForm_Terminate()
    Application.Visible = True
End Sub

Cordialement
ctac

[Liloo14]

Merci beaucoup ctac, je n'avais pas pensé à cette solution mais en effet c'est parfait.
j'enrage un peu de ne pas y avoir pensé moi-même -))
Merci encore