Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim TheDate As Date ' Déclare les variables. Dim Msg As String TheDate = InputBox("Entrez une date") Msg = "Jours à compter d'aujourd'hui: " & DateDiff("j", Now, TheDate) MsgBox Msg