Discussion :

[Loupire]

Bonjour, je vous expose mon problème :

Ma mission importer des données de fichiers texte ayant toujours le même masque vers un tableau Excel le tout par VB... chaque fichier texte a une date d'edition differente ce qui est un des critere de remplissage de mon tableau.

Problème 1 - Comment importer une date provenant d'un fichier .txt vers une cellule de classeur .xls cette cellule appartenant a une colonne regroupant mes dates

Problème 2 - Lors de l'importation de cette date au format jj:mm:aaa j'aimerais savoir quelle fonction je dois employer pour qu'elle soit affichée dans un tableau pré-existant où le format de la date est jj/mm/aaaa

Code :

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

1
2
3
4
5
6
7
8
9
    If InStr(1, lign$, "Message-Date :") <> 0 Then
    'test sur la date
    Mid$(lign$, 24, 8) = datemvt
    'extraction de la date
      ???
        '--> formule pour importer datemvt dans le tableau
      ???
        '--> formule pour changer le format de la date
    End If

Merci d'avance,


PS : Ce billet est dans la lignée d'un autre portant sur mon projet d'etude
http://www.developpez.net/forums/d86...t-vers-xls-vb/

[Loupire]

Une idée vient de me passer par la tête :

Code :

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

datemvt = Format(dd, "00") & "/" & Format(MM, "00") & "/" & Format(yyyy, "0000")

ou

Code :

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

datemvt.Value = Format(datemvt.Value, "dd/mm/yyyy")

[Loupire]

Apres quelques un petit test j'ai enfin trouve la solution a mon probleme je la post si ca peut aider quelqu'un :

Code :

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

1
2
3
4
5
6
7
8
9
    datemvt$ = Mid$(lign$, 25, 8)
    'extraction de la date
    j$ = Mid$(datemvt$, 1, 2)
    m$ = Mid$(datemvt$, 4, 2)
    a$ = Mid$(datemvt$, 7, 2)
 
    date_new_format = j$ & "/" & m$ & "/20" & a$
    date_new_format_date = CDate(date_new_format)
    'changement du format d'import de la date

OU

Code :

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

1
2
3
4
5
    datemvt$ = Mid$(lign$, 25, 8)
    'extraction de la date
    date_new_format = Mid$(datemvt$, 1, 2) & "/" & Mid$(datemvt$, 4, 2) & "/20" & Mid$(datemvt$, 7, 2)
    date_new_format_date = CDate(date_new_format)
    'changement du format d'import de la date

Me permettant de retranscrire une date 18.01.10 en 18/01/2010.