Bonjour,
J'ai un souci relatif au développement d'un programme de gestion de réservation. A l'ouverture du programme j'ai toujours ce message d'erreur.
Je suis sous W10 et excel 2016 64B

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub Ce_Jour()
    Dim La_Date, Décalage_Date
    La_Date = [Date_Deb].Value
    Décalage_Date = DateDiff("d", La_Date, Int(Now)) - 14
    [_DC].Value = Décalage_Date
End Sub
Merci à tous pour votre aide.