Bonjour BsAlv,
"erreur de compilation dans le mode caché : thisworkbook
Cette erreur survient généralement lorsque le code est incompatible avec la version..."
et quand je passe par le débogage il s'arrete sur la fonction sleep " Erreur de compilation: Sub ou fonction non définie"
merci de ton aide
__________________________________________________________________________________________________________________________________________________________________
sinon j'ai teste celui ci dessous et j'ai mis en pièce jointe le message d'erreur avec le débogage :)
________________________________________________________________________________________________________________________________________________________________
Private Sub Workbook_Open()
Application.ScreenUpdating = False 'l'utilisateur ne voit pas les changement sur son écran
'la date d'expiration
DateExpiration = DateSerial(2021, 12, 31) ' <= choisissez la date d'expiration >>> via la fonction DateSerial avec les paramètres (aaaa, mm, jj)
'compare la date d'expiration avec la date d'aujourd'hui
If DateExpiration <= Date Then
'le code de l'action à effectuer quand le fichier est expiré
'par exemple un message:
MsgBox "Ce fichier n'est plus valide..."
Else
End If
Application.ScreenUpdating = True 'on réenclenche l'affichage des changements
End Sub
________________________________________________________________________________________________________________________________________________________________