Private Declare Function FindWindowA& Lib "user32" _
(ByVal lpClassName$, ByVal lpWindowName$)
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 Annul_Click()
Effacer
Unload Installateur
End Sub
Private Sub Rech_Click()
Dossier
End Sub
Private Sub UserForm_Activate()
Me.ListBox1.RowSource = "Feuil1!C1:C606"
Dim hwnd As Long
hwnd = FindWindowA("XLMAIN", Application.Caption)
EnableWindow hwnd, 1
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = ""
Sheets("Feuil1").Range("A1:C606").ClearContents
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H20000
Dim Fichier As String
Dim x As Long
Fichier = "D:\Dossiers Excel\Formulaires\Installateur\sfx.ico"
x = Len(Dir(Fichier))
If x = 0 Then Exit Sub
x = ExtractIconA(0, Fichier, 0)
SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
End Sub
Private Sub Install_Click()
Installer
End Sub