Lier Fct "Iconiser" de Feuil Excel à Userform

'ReleaseCapture
'SendMessage FindWindow(vbNullString, Me.Caption), &HA1, 2, 0&

'### Constante à adapter ###
Public Const ACTION_AU_NIVEAU_FENETRE As Boolean = True 'True pour agir au niveau fenêtre sinon False
'###########################

Private Declare Function SetTimer& Lib "user32" _
  (ByVal hwnd As Long, ByVal nIDEvent As Long, _
  ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Private Declare Function KillTimer& Lib "user32" _
  (ByVal hwnd As Long, ByVal nIDEvent As Long)
  
Public NomFenetre As String
Public NoMake As Boolean
Dim OnTimer&

Private Sub LanceOnTime()
If Application.WindowState = xlMinimized Then
  Call OffTimer
  Application.OnTime Now + TimeValue("00:00:00"), "AfficheUserForm"
End If
End Sub

Public Sub RunTimer(Delai As Long)
If OnTimer& > 0 Then OffTimer
OnTimer& = SetTimer(0, 0, Delai, AddressOf LanceOnTime)
End Sub

Public Sub OffTimer(Optional dummy As Byte)
If OnTimer& > 0 Then
  OnTimer& = KillTimer(0&, OnTimer&)
  OnTimer& = 0
End If
End Sub

Public Sub myTimer(Optional dummy As Byte)
Call OffTimer
OnTimer& = 0
Call RunTimer(Delai:=0)
End Sub

Private Sub AfficheUserForm(Optional dummy As Byte)
AppActivate ThisWorkbook.Parent.Name
If Not NoMake Then UserForm1.Show
End Sub

Dim myAppli As New clsEventApp

Private Sub Workbook_Activate()
If ACTION_AU_NIVEAU_FENETRE Then
  If myAppli.App Is Nothing Then Set myAppli.App = Excel.Application
End If
Call RunTimer(Delai:=0)
End Sub

Private Sub Workbook_Deactivate()
If Not myAppli.App Is Nothing Then Set myAppli.App = Nothing
Call OffTimer
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not myAppli.App Is Nothing Then Set myAppli.App = Nothing
Call OffTimer
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
NoMake = True
If NomFenetre <> vbNullString Then
  Me.CommandButton1.Caption = "Maximiser la fenêtre"
End If
If Application.WindowState = xlMinimized Then
  Me.CommandButton1.Caption = "Maximiser l'application"
End If
End Sub

Private Sub UserForm_Terminate()
NoMake = False
If Application.WindowState = xlMinimized Then
  Application.WindowState = xlMaximized
  Call RunTimer(Delai:=0)
End If
If NomFenetre <> vbNullString Then
  ThisWorkbook.Windows(NomFenetre).WindowState = xlMaximized
  NomFenetre = vbNullString
End If
End Sub

Public WithEvents App As Application

Private Sub App_WindowResize(ByVal WB As Workbook, ByVal Wn As Window)
If Wn.WindowState = xlMinimized Then
  NomFenetre = Wn.Caption
  With UserForm1
    .CommandButton1.Caption = "Maximiser la fenêtre"
    .Show
  End With
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton1_Click()
Unload Me
ThisWorkbook.Activate
End Sub