Bonjour à tous,

Auriez-vous une explication au fait que lorsque je lance une macro via un bouton personnalisé dans la barre d'outil excel, celle-ci n'a pas, sur le userform qu'elle lance, d'icone "réduire" alors que lorsque je lance la macro par tout les autres moyens que j'ai trouvé (à savoir raccourci clavier, lancement normal dans outil/macro/macros ou encore lancement depuis vba) mon icone réduire est bien là.
Je précise que l'icone réduire est codé dans la macro, c'est pour ça qu'elle devrait y figurer. Le code pour cette icone 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
 
Private Declare Function FindWindowA& Lib "User32" (ByVal IpClassName$, ByVal IpWindowName$) 
Private Declare Function EnableWindow& Lib "User32" (ByVal hWnd&, ByVal bEnable&) 
Private Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&) 
Private Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&) 
 
Private Sub UserForm_Activate()
    EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub
 
Private Sub UserForm_Initialize()
    Dim hWnd As Long
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End sub