Salut LouReed,
Pour un ami, je m'intéresse à ton fichier, mais plusieurs problèmes sont toujours présents malgré l'ancienneté
1) La "Sub ReleaseCapture" n'est pas prise dans la compilation conditionnelle, d'où un problème de compilation
#If VBA7 Then
Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongPtr, lParam As Any) As Long
#Else
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If
Private Declare Sub ReleaseCapture Lib "user32" ()
2) Problème un "Userform1" qui serait nécessaire mais je ne sais pas ce qu'il contenait
Sub DatePicker()
iFlag = Not ThisWorkbook.Sheets(1).CheckBoxes("Case1") = 1
If iFlag Then UserForm1.Show Else frmDPicker.Show
End Sub
A+