A l'ouverture du fichier j'ai cette macro:
Private Sub Workbook_Open()
'si date entre 02/01 et 30/10 plus de modif de budget
If Date >= DateSerial(Year(Date), 1, 2) And Date <= DateSerial(Year(Date), 10, 30) Then
'Range("z1") = DateSerial(Year(Date), 1, 2) 'adapter le ?
Call ProtecBudget
Else
Call DeProtecBudget
End If
If Date >= DateSerial(Year(Date), 10, 30) And Date <= DateSerial(Year(Date), 1, 2) Then
'Range("z1") = DateSerial(Year(Date), 1, 2) 'adapter le ?
'Call ProtecBudget
Else
Call DeProtecBudget
'si date entre 30/10 et 02/01 possibilité de modifier le budget
'If DateSerial(Year(Date), 1, 2) >= Date >= DateSerial(Year(Date), 10, 30) Then
'MsgBox "Vous avez accès à La Saisie du BUDGET"
'Call DeProtecBudget
End If
End Sub
Tu penses que ca peut venir de ça?