Problème extraction date avec mid

[MJ13]

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

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

Merci d'avance

 

[sousou]

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]

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.

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