Forcer l'heure dans un objet DateTimeValue en LS

[bmoon]

Bonjour,

Je voudrais forcer une heure dans un objet DateTimeValue

Dans mon code j'ai ceci:

Code : Tout sélectionner

Dim dateTimedeb As New NotesDateTime("")

[...]

Set dateTimedeb = item1.DateTimeValue

Sur le Set, j'ai essayé ceci :

Code : Tout sélectionner

Set dateTimedeb = item1.DateTimeValue + TimeValue("12:00:00")

Ca me met une erreur "Type mismatch"

j'ai aussi essayé cela :

Code : Tout sélectionner

Set dateTimedeb = DateValue(item1.DateTimeValue) + TimeValue("12:00:00")

-> j'ai la meme erreur...

Je suis à court d'idées... qqun pour m'aider ?

[Michael DELIQUE]

salut

entroue ton DateValue(item1.DateTimeValue) d'un cstr()

[bmoon]

Code : Tout sélectionner

Set dateTimedeb = Cstr(Datevalue(item1.DateTimeValue)) + Timevalue("12:00:00")

-> Toujours la meme erreur...

[Michael DELIQUE]

un
msgbox Cstr(Datevalue(item1.DateTimeValue)) + Timevalue("12:00:00")

ça donne quoi ?

[bmoon]

54: Type mismatch on: DATETIMEVALUE

[Michael DELIQUE]

parceque item1.DateTimeValue renvois un objet ! pas un string