Discussion :

[Rayan1]

Saut les amis ,

je suis bloquer.
Voici mon petit soucis. Je veux faire des Calculs avec une date. Par exemple Date du jour = 12/04/2018 + 12 (12 jours de plus) = 24/04/2018.
Voici mon code VBA

Private Sub nbjrs_AfterUpdate()

Me.echeance = Format(Me.datereg, "mm/dd/yyyy") + Me.nbjrs

End Sub

quand je veux exécuter voici l'erreur :


j'ai même utilisé cdbl(me.ndjrs) pour convertir mais sa ne passe pas.

[Invité]

Bonsoir,

DateSerial ( année, mois, jour )

Me.echeance = dateserial(year(Me.datereg),moth(Me.datereg),day(Me.datereg)+ Me.nbjrs)

[tee_grandbois]

bonsoir,
il y a aussi DateAdd(Interval, Nombre, Date)
Me.echeance = dateadd("d", Me.nbjrs, Me.datereg)

[Rayan1]

Merci ça marche