Problème date calcul

Bonjour,

Je veux archiver l'heure du jour et sa date, j'ai besoin pour ça de prendre la date d'une cellule à un moment (DatePrec). Cependant DatePrec ne prend pas la date, ça prend 00:00:00. Ensuite je fais un calcul de date mais puisque DatePrec n'a pas le bon résultat, ça met Erreur 6 dépassement de capacité. C'est lors du débogage en pas à pas qu'en revenant en arrière et en cliquant sur la case que des fois ça marche bien.

Ca voudrait dire qu'elle n'est pas bien prise en compte automatiquement comme une date ?

Dim DatePrec As Date, val As Long

DatePrec = Cells(i + 1, j + 1) 
[...]
val = Date - DatePrec

Bonjour

Un essai .

Bye !

Val est un mot réservé, donc à ne pas utiliser comme variable. Pour le reste difficile de se prononcer sans le fichier.