Userform Excel et requête sql

Fermé
cinimod Messages postés 1 Date d'inscription mardi 29 mars 2005 Statut Membre Dernière intervention 29 mars 2005 - 29 mars 2005 à 22:32
Armojax Messages postés 1860 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 2 octobre 2024 - 30 mars 2005 à 08:32
Bonjour à tous,

je récupère des info stocké dans Access dans un usrform en vba (Excel). Tout va bien sauf un truc.
Si j'essaie de récupérer à l'aide d'une instruction Sql un champ de type Heure le résultat est incompréhensible.

Ex: Dans Access 2:30 heure réduite
Valeur retournée dans un textbox vba Excel 1,3888888889E-02 comment le reconvertir. sous la forme 2:30

les chiffres sont à titre d'exemple.
A voir également:

2 réponses

Utilisateur anonyme
30 mars 2005 à 02:40
Bonjour,

Un problème de format, au moment de la lecture, la variable qui reçoit la valeur doit être de type Variant, ensuite par des tests précis tu pourra trouver le type de cette valeur et y trouvez la date. Je n'ai pas l'exercice sous les yeux mais j'ai fait cette manoeuvre.

essaie des commandes de str, mid etc ou date, month, year,day...

Une lecture doit toujours être global et contrôlé à mon avis.

Lupin
0
Armojax Messages postés 1860 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 2 octobre 2024 1 528
30 mars 2005 à 08:32
Bonjour cinimod,

Les dates et les heures étant gérées comme des nombres, c'est un nombre que tu récupères dans Excel.
Il faut faire un CDate(1.3888888889E-02) Résultat : 00:20:00

Le fait que tu aies une virgule et non pas un point laisse penser que tu pourrais recevoir du texte. Si c'est le cas :
Texte = FournitureAccess ("1,3888888889E-02")
Texte = Replace(Texte, ",", ".") ("1.3888888889E-02")
Valeur = CDbl(Texte) (0.013888888889)
Résultat = CDate(Valeur) (#00:20:00#)

Essaie si c'est ça.
Armojax.
0