Minimiser et centrer la fenêtre de l'application

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:

---

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:

---

Application.StartUpPosition = ScreenCenter

---

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

Bonjour,

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

Code:

---

1 2 3 4

Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub

---

Dans UserForm1 :

Code:

---

1 2 3

Private Sub UserForm_Terminate() Application.Visible = True End Sub

---

Cordialement
ctac

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