Problème extraction date avec mid

MJ13 · 5 Novembre 2008

Bonjour àtous

Voila lorsque j'extrait d'un fichier txt issu du dir, j'obtiens des dates mais certaines sont au format date en valeur (aligné à droite) et d'autres au format texte (aligné à gauche).
j'extrait ainsi:
exemple avec strline étant la ligne récupéré de mon fichier dirall.txt

Code:

Open "C:\dirall.txt" For Input As #1
Line Input #1, strLine
datefich = Mid(strLine, 1, 10)

Merci d'avance

sousou · 5 Novembre 2008

Re : Problème extraction date avec mid

Bonjour MJ13

Je pense qu'il te faut faire datefich= cdate(MID.....
Pour obtenir une vrai date.
peut_être un formatage devra^aussi être mis en place en fonction du texte
cdate(format(......,"yy/mm/dd")

MJ13 · 5 Novembre 2008

Re : Problème extraction date avec mid

Bonjour sousou

Merci pour ta réponse.

Cela ne fonctionne pas mais j'ai m'impression que lorsque j'importe mon fichier txt en mettant à la fin "Local:=true", les dates sont bien prises en date.
Mais je garde ta solution dans d'autres cas a tester.

Code:

Workbooks.OpenText Filename:="C:\DIR" & Cells(p, 3).Value & ".txt", Origin:=xlWindows, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
        3, 1), Array(4, 1)), TrailingMinusNumbers:=True, local:=True

Problème extraction date avec mid

MJ13

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires

Problème extraction date avec mid

MJ13

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency