Complément (Vba Indenter Interface) V3.1.C Fx4

Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If
Sub RemoveCloseButton(frm As Object)
#If VBA7 Then
    Dim lngStyle As LongPtr
    Dim lngHWnd As LongPtr
#Else
    Dim lngStyle As Long
    Dim lngHWnd As Long
#End If

    lngHWnd = FindWindow(vbNullString, frm.Caption)
    lngStyle = GetWindowLong(lngHWnd, GWL_STYLE)

    If lngStyle And WS_SYSMENU > 0 Then
        SetWindowLong lngHWnd, GWL_STYLE, (lngStyle And Not WS_SYSMENU)
    End If

End Sub

Option Compare Text
#If VBA7 Then
    Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
            (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare PtrSafe Function EnumWindows Lib "user32" _
            (ByVal lpEnumFunc As LongPtr, ByVal Param As Long) As Long
    Declare PtrSafe Function IsWindowVisible Lib "user32" _
            (ByVal hwnd As Long) As Long
    Declare PtrSafe Function EnumDisplayMonitors Lib "user32" _
            (ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As LongPtr, dwData As Long) As Long
#Else
    Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
            (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare Function EnumWindows Lib "user32" _
            (ByVal lpEnumFunc As Long, ByVal Param As Long) As Long
    Declare Function IsWindowVisible Lib "user32" _
            (ByVal hwnd As Long) As Long
    Declare Function EnumDisplayMonitors Lib "user32" _
            (ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As Long, dwData As Long) As Long
#End If
Dim Results     As Dictionary
Dim Criteria    As String
Sub Msg_Verrue()
    UserConfirm _
                "Proposition pour le nom du concours du jour : " & _
                Format(Now, "DDMMYYYY") & "_" & Environ("COMPUTERNAME"), , _
                "vous pouvez faire Ctrl+v (coller)", _
                "dans la zone ", _
                """Tapez ici le nom de votre nouveau concours""", _
                "de Gc_Concours", , _
                "OK", "IMG"

End Sub