Bonsoir,
J'ai un userform dans une application qui s'ouvre à l'ouverture du fichier xlsm dont le code est le suivant :
je peux réduire la fenêtre et fermer la fenêtre.
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
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,
Partager