Discussion :

[Alaindhu]

Bonjour,

Lorsque j'ouvre mon fichier Excel, je voudrais avoir l'userform qui s'affiche sur tout l'écran et que le tableau Excel se minimise.
Cela fonctionne dans l'ensemble sauf que mon UF s'ouvre en tout petit...:


Mon code dans this Workbook:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
    Application.ScreenUpdating = True
    Application.WindowState = xlMinimized
 
    affichage
 
    'UFsaisie.Show 0
    Application.ScreenUpdating = False
 
End Sub

dans un module:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
UFsaisie.Show 'affiche la fenêtre créée
 
    Dim Rx As Single
    Dim Ry As Single
 
    'Userform
   With UFsaisie
 
        Rx = Application.Width / .Width
        Ry = Application.Height / .Height
 
        .StartUpPosition = 1
        .Left = 0
        .Top = 0
        .Height = Application.Height
        .Width = Application.Width
 
    End With

merci

PS: j'ai trouvé: il faut enlever: Application.WindowState = xlMinimized... sans commentaires