Ouverture Excel plein écran

[corto]

Bonjour à tous,
Bonjour le Forum,

J'ai un USF que j'affiche plein écran grâce au code de MichelXld :

Private Sub UserForm_Activate()
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub

De plus, pour éviter que l'utilisateur puisse accéder au code,
j'ai ajouté ceci au QueryClose quand on clique sur la croix.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.DisplayAlerts = False
Unload UserForm1
Application.Quit
End Sub

Le problème c'est que si un utilisateur à fermé son excel avec une fenêtre réduite, et bien quand il lance mon appli, il se retrouve avec mon USF dans cette fénêtre réduite et il n'a pas la possibilité la redimensioner.
Le seule chose qu'il puisse faire c'est de fermer avec la croix.

Quelqu'un aurait-il une solution ?
il y aurait un commande VB pour ouvrir Excel pleine fenêtre?


Merci d'avance

Corto

 

[PascalXLD]

Bonjour

ajoute dans le

Private Sub Workbook_Open()

Application.WindowState = xlMaximized


end sub

Bon courage

 

[corto]

Bravo, ça marche !!!

Un grand merci Pascal,

Chapeau !!!

Bas et Melon