usf affiché à l'écran à l'ouverture

[Provence Vintage]

salut à tous

Quel code faut-il pour afficher sur tout l'écran un usf à l'ouverture d'un fichier!
merci d'avance.🙂

 

[alex67800]

Re : usf affiché à l'écran à l'ouverture

Bonsoir Provence Vintahe,

Alors pour un usf plein ecran mettre dans le code de l'usf ceci:

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

'et rajouter dans l'userform_inialize
Private Sub UserForm_Initialize()
Dim hwnd As Long, exLong As Long, zFactor As Integer

hwnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hwnd, -16)
If exLong And &H880000 Then SetWindowLongA hwnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
If zFactor > 400 Then zFactor = 400
Me.Width = Application.Width
Me.Height = Application.Height
Me.Zoom = zFactor

Pour l'afficher à l'ouverture du fichier:
dans Workbook_open
Userform1.Show ' mettre le nom de ton usf.

Sinon un exemple ici:
https://www.excel-downloads.com/threads/feuille-de-temps-et-analyse-de-production.107305/

Dans ce fichier, pour fermer l'usf aller dans Visualiser Niveau1.

Sinon pour niveau2>>>mdp "vero"

 

[Provence Vintage]

Re : usf affiché à l'écran à l'ouverture

Salut alex67800;

Dans initialize, il me met: fonction non définie!?
et ça, tu le cale où:
Private Declare Function FindWindowA Lib "user32" _
...
Sans End Sub?
Merci à toi!

 

[Provence Vintage]

Re : usf affiché à l'écran à l'ouverture

Super,

merci, j'ai trouvé!

 

[tora]

Re : usf affiché à l'écran à l'ouverture

Super,

merci, j'ai trouvé!

ca marche ?

 

[vbacrumble]

Re : usf affiché à l'écran à l'ouverture

Bonjour à tous


Alex67800:

Tu te compliques

Pour mettre un userform en plein écran, il y a plus simple 😉

Private Sub UserForm_Initialize()
Me.Height = Application.Height: Me.Width = Application.Width
End Sub

 

[Provence Vintage]

Re : usf affiché à l'écran à l'ouverture

Bonjour vbacrumble, alex67800, tora, Le fil

Merci, j'essaye aussi cette méthode!
a+