'patricktoulon exceldownload
#If vba7 Then
'trouver le handle
Private Declare ptrsafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Longptr
'on redessine la barre sinon elle se retrouve en bas de l'userform
Private Declare ptrsafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Longptr) As Long
'afficher le userform 1 mode fenetre ,2 mode reduit , 3 plein ecran
Private Declare ptrsafe Function "ShowWindow" Lib "user32" (ByVal hwnd As Longptr, ByVal nCmdShow As Long) As Long
'application des modification
Private Declare ptrsafe Function SetWindowLongA Lib "user32" (ByVal hwnd As Longptr, ByVal nIndex As Long...