Discussion :

[Anaxagore]

Bonjour,

je rencontre le pb suivant : je suis obligé de mettre tous les champs en type texte afin de pouvoir importer mes données alors que certains champs sont des nombre et d'autres des dates.

Comment puis je faire pour transformer une donne qui est de type teste en autre chose sachant que j'utilise ce type de code :

Code :

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

1
2
3
4
 
With matable
   ![Nb CPU] = aData(14) 'le champ est declaré en numérique
   ![Date] = aData(15) ' le champ est declaré en date

les aDate sont un split d'une ligne importer via un OpenAsTextStream

je cherche depuis ce matin sur le forum et je ne trouve rien

Merci d'avance pour votre aide

Anax

[User]

Salut,

Tu as essayé avec les fonction de conversion CLng,CInt,CDate...

Code :

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

matable![Date] = CDate(aData(15))

A+

[Anaxagore]

Bonsoir USer

Merci d'avoir répondu mais je n'arrive pas avec cdate()
il me dit : erreur execute 13 - incompatibilité de type et pourtant mon champ est bien en Date / heure

Le texte que j'importe est comme ceci : jj/mm/aaaa hh:mm mais considéré comme du texte

Merci pour ton aide

Anax

[User]

Salut,

Pour debugger, mets 1 point d'arrêt juste avant cette instruction:

Code :

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

 ![Date] = CDate(aData(15)) ' le champ est declaré en date

et regardes ce que contient aData(15)

A+

[Anaxagore]

Alors voici le code que j'ai ecris suivant ton conseil ;

Code :

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

1
2
3
4
 
Debug.Print aData(15)
Stop
![Date] = CDate(aData(15))

Dans la fenetre de debug j'obtiens ceci : 31/08/2004 16:27

Le champ date dans ma table est bien au format Date/heure general

Merci encore pour ton aide

Anax

[Anaxagore]

En approfondissant mes recherches, en fait le code se plante quand aData(15) est vide. Puis je faire autrement que de mettre une date bidon?

C'est la 1ere fois que je me retrouve devant cette situation

Merci d'avance

Anax

[Kloun]

Bonjour,

Code :

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

1
2
3
If nz(aData(15), "") <> "" then
    ![Date] = CDate(aData(15))
End if

Et attention au format de date. Pour 31/08, il n'y aura pas de souci, mais pour 12/08, ça va sans doute poser problème.
Il faudrait décomposer la date et passer par un dateserial et un timeserial.

[Anaxagore]

Bonjour,

J'essaye de bosser sur vos piste mais mon fichier est vraiment pourri !!!!
Pour vous donner un petit exple de donnée que j'ai dans cette fameuse colonne date à importer, cela peut etre ces type :
1) 26/06/2006 16:54:00
2) Wed May 24 16:56:31 2006
3) Je peux juste trouver un nombre (exple : 2)
4) 08/27/09
5) Thu 08 Oct 2009 12:33:36 PM CEST
6) Nov 25 2008 22:05

Je n'ai même pas l'ombre d'une idée pour savoir par ou commencer pour traiter ces cas....

Etant un pauvre debutant désespéré qui essaye de comprends, peut on me mettre sur la voix d'un code de traitement ?

Merci bcp pour votre aide

Anax

[Kloun]

A part un rejet des lignes dont les données ne respectent pas un certain format, je ne vois pas ce que tu peux faire.
Par exemple, imposer un format de date DD/MM/YYYY hh:mm:ss et rejeter dans une table les lignes qui ne le respecte pas.
Vu ce que tu as comme exemple, le 05/12/2010, tu ne sauras pas dire si c'est le 5 dec. ou le 12 mai.

[Anaxagore]

Merci bcp pour votre aide, je vais faire cela

C'est vraiment formidable d'avoir des explications pour comprendre et avancer.

Merci encore

Anax