[VB] Probleme de format de date sous excel

Question

Bonjour, j'ai un gros soucis lors de l'ouverture d'un fichier .txt avec excel sur une chaine de caractere qui represente une date: 

dans le fichier texte il est ecrit 11/04/07 (11avril2007)
et je recupere dans excel 04/11/07

Par contre s'il est ecrit 13/04/07 il me ressort bien 13/04/07 n'existant pas de 13eme mois l'ordinateur ne fait plus l'erreur 

Mais cela reste quand meme un bug qui existe 12 jour dans le mois et vu que cest pour mon stage en entreprise ce probleme savere important dans le classement des resultats qui s'ensuit.

J'ai bel et bien regler mon ordinateur au format francais donc le probleme ne vient pas de la.

Merci a tout ceux qui pourrait m'aider

bibi94 · Answer

Bonjour,
Comment importes-tu ton fichier .txt dans excel ?

Nours · Answer

Je l'ouvre avec ce code ci sachant que nom est le nom du fichier à ouvrir:

' Ouverture du fichier temporaire
    Path = ActiveWorkbook.Path & "\Fiche\"
    Workbooks.OpenText Filename:=Path & Nom, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 1)

Nours · Answer

Le probleme est résolu il suffisait de taper ceci comme code si sa interesse des gens:

' Ouverture du fichier temporaire
    Path = ActiveWorkbook.Path & "\Fiche\"
    Workbooks.OpenText Filename:=Path & Nom, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 4))

[VB] Probleme de format de date sous excel

3 réponses

Votre réponse

Newsletters