Discussion :

[ikoria]

Bonjour

J'ai des variables que je concatène:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim Date_valeur as Date
Dim jour_valeur as integer
Dim mois_valeur as integer
Dim annee_valeur as integer
Dim chaine as string
 
chaine = CStr(annee_valeur) & "/" & CStr(mois_valeur) & "/" & CStr(jour_valeur)

Jusque là pas de problème pour avoir par exemple chaine = "31/06/1928"

Mais quand je fais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Date_valeur = CDate(chaine)

Il me dit que j'ai une erreur de type (erreur 13)
Vous avez une idée?
Iko

[mercatog]

Tu peux faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim Date_valeur as Date
Dim jour_valeur as integer
Dim mois_valeur as integer
Dim annee_valeur as integer
 
dateval = DateSerial(annee_valeur, mois_valeur, jour_valeur)

[ikoria]

merci ca marche