Discussion :

[gwenagan]

Bonjour à tous,

J'aimerais savoir si je peux convertir une date qui provient d'un fichier texte sous ce format 01.01.2009 00:05 ou alors si je peux extraire le jour puis le mois puis l'année etc ... et les concatainer ensuite sous un format de date avant de les insérer dans une table.

Merci d'avance pour votre aide et à bientôt.

[Jean-Philippe André]

salut,
- tu peux ajouter les # ainsi que caster avec un Cdate() en principe
l'aide en ligne t'aidera pour les syntaxe de la fonction Format() qui s'ensuivra

[gwenagan]

Bonjour et merci de m'avoir répondu aussi vite.
Je suis débutant et je ne comprend rien à la réponse, désolé.
Existe t'il une fonction ou je ne sais comment l'apellée, qui me permette d'extraire une partie de la chaine suivante : 01.01.2009 00:05 ?

Je veux extraire 01 (les deux premiers caractères de la chaine),
puis 01 (les 4eme et 5eme caractères de la chaine) et ainsi de suite.

En tous cas, merci de votre réponse, et si je n'y comprend rien, c'est de ma faute.

A bientôt et encore merci.

[User]

Salut,

Tu as besoin d'un minimum de connaissante en VBA pour formater ta date (voir les fonctions CDate, Format... (message de jpcheck) ) et ensuite pour mettre à jour ta table ..

Sinon souhaites-tu utiliser une requête ajout ou mise à jour ?

[Invité]

Bonjour

Pour les extractions regardes du coté des fonctions Left, Right et Mid, le tout à utiliser avec CDate comme dit précédement.

Philippe

[gwenagan]

Bonjour à tous,

Je souhaite ajouter à une table des données contenant cette date.

Encore merci.

[Invité]

Bonjour

Peux-tu être plus clair dans tes explications.

As-tu réussi la conversion au format Date ?

Cette date que tu veux rajouter dans une table, elle est toute seule ? Elle est liée à d'autres enregistrements ?

Ton fichier texte, tu en fais quoi ? Tu l'insères dans une table ? Si oui comment ?

Philippe

[gwenagan]

Re bonjour et encore merci.

Oui j'ai réussi à convertir le format de date avec la fonction Mid.

Ensuite je concatene mes champs de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
WSQL = "INSERT INTO T_DONNEES_TMP ( Numéro, JJ, MM, AA, HH, [MINUTE] ) "
WSQL = WSQL + "SELECT T_DONNEES.Numéro, Mid([Date et Heure],1,2) AS JJ, Mid([Date et Heure],4,2) AS MM, Mid([Date et Heure],7,4) AS AA, Mid([Date et Heure],12,2) AS HH, Mid([Date et Heure],15,2) AS [MIN] "
WSQL = WSQL + "FROM T_DONNEES "
WSQL = WSQL + "WHERE (((T_DONNEES.DATE_JOUR) Is Null));"
 
DoCmd.RunSQL WSQL
 
WSQL = "UPDATE T_DONNEES INNER JOIN T_DONNEES_TMP ON T_DONNEES.Numéro = T_DONNEES_TMP.Numéro SET T_DONNEES.DATE_JOUR = [JJ], T_DONNEES.DATE_MOIS = [MM], T_DONNEES.DATE_ANNEE = [AA], T_DONNEES.DATE_HEURE = [HH], T_DONNEES.DATE_MINUTE = [MINUTE];"
 
DoCmd.RunSQL WSQL
 
WSQL = "UPDATE T_DONNEES SET T_DONNEES.DATES_CORRIGEES = [DATE_JOUR] & ' / ' & [DATE_MOIS] & ' / ' & [DATE_ANNEE];"
 
DoCmd.RunSQL WSQL

Je n'ai pas trouvé mieux pour le moment.

A bientôt.

[User]

Comme on te la proposé,

tu aurais pu aussi simplement utiliser la fonction Format:

Code sql :

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

Format([Date et Heure],'dd') AS JJ

[gwenagan]

Bonjour et merci à toi pour ta réponse.

J'ai obtenu JJ après avoir extrait, grâce à la fonction Mid. Ensuite, j'ai fais comme j'ai pu. Je ne suis pas un expert et j'ai concaténé car je savais faire.

Par contre, je retiens la solution pour la prochaine fois.

Encore merci.

Peut on marqué résolu, grâce à votre aide d'ailleurs ?

[gwenagan]

Pardon,
Je viens de voir sur ta réponse précédente que l'on pouvait créer un agenda sous access.

Mon dernier directeur informatique avait créé un calendrier qui ressemblait au calendrier proposé par microsoft windows.

Saurais tu comment faire ?

Je recherche depuis un petit bout de temps.

Merci d'avance. Peut être que cela fera l'objet d'un autre post.

A bientôt.

[gwenagan]

Bonsoir à tous,
Je marque mon poste comme résolu car je suis parvenu à mes fins.
Merci à tous et encore bravo pour vos compétences.
Le sujet du calendrier reste ouvert.
A bientôt.