Bonsoir,

J'ai un userform dans une application qui s'ouvre à l'ouverture du fichier xlsm dont le code est le suivant :
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
19
20
21
22
23
24
25
26
27
28
Private Sub UserForm_Activate()
' codes permettant d'utiliser l'icone de réduction de fenêtre
Dim hWnd As Long
 
    hWnd = FindWindowA("XLMAIN", Application.Caption)
    EnableWindow hWnd, 1
End Sub
Private Sub UserForm_Initialize()
    Principal.MultiPage1.Value = 0
    Windows("Revue_Referentiel_Tech.xls").Visible = False
    Windows("Liste_Responsables_Equipements.xls").Visible = False
    Windows("Stock.xls").Visible = False
    Principal.Frame32.Visible = False
    Principal.Frame33.Visible = False
    Principal.ListBox12.Clear
    Principal.Label95.Visible = False
    Principal.Label96.Visible = False
    Principal.Label97.Visible = False
    Principal.Label98.Visible = False
 
    Principal.OptionButton2 = True
    ET = 1
    Principal.OptionButton1 = ""
    ' codes permettant d'utiliser l'icone de réduction de fenêtre
    Dim hWnd As Long
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
je peux réduire la fenêtre et fermer la fenêtre.

L'userform apparait sur mon ordi et je vois bien l'ensemble du formulaire

Une autre personne utilise l'application et l'userform s'affiche dépasse de son écran.
Je ne trouve pas pourquoi alors que c'est la même application

Avez vous une idée ?

Cordialement,