conversion de string en date

Bonjour,

j'ai trois textbox avec donc trois nombre : le jour, le mois et l'année.

Ce que je souhaite faire c'est les rassembler dans une seule variable date.
en fouinant dans l'aide, j'ai écrit :

Code:

---

1 2 3 4

Dim vd As Date Dim temp As String temp = "#" & CStr(TextBox1.Value) & "/" & CStr(TextBox2.Value) & "/" & CStr(TextBox3.Value) & "#" vd = CDate(temp)

---

mais vba me donne comme réponse "incompatibilité de type" :aie:
alors qu'il comprend très bien :

Code:

---

vd = CDate(#10/10/2008#)

---

Comment faire ? Où me suis-je planté ?? :koi:

Bonjour,

pourquoi les # dans la chaîne de caractères?
Dans

Code:

---

vd = CDate(#10/10/2008#)

---

il n'y a pas de chaîne de caractères et #...# est déjà une date.

Code:

---

1 2 3

Dim vd As Date, temp as String temp = CStr(tb1.Text) & "/" CStr(tb2.Text) & "/" CStr(tb3.Text) vd = CDate(temp)

---

Sauf que tu risques d'avoir un souci de format de date anglais (mm/dd/yyyy et non dd/mm/yyyy). A moins d'avoir vraiment besoin de 3 textboxes pour saisir une date, je recommande l'utilisation du contrôle DateTimePicker, expressément faire pour sélectionner et manipuler des dates.

Code:

---

1 2 3 4

annee = "2001" mois = "2" jour = "25" MsgBox DateSerial(annee, mois, jour)

---

:merci:
Comme d'habitude,simple, rapide et efficace :king: