Problème lors de l'ouverture d'ub fichier txt en xls /format date

Question

Bonjour,
Je suis débutant en VBA et sur les forums !!!!!
Lorsque j'ouvre un fichier TXT, j'ai des dates qui passent de format européen en format américain (de format aléatoire)
ex 12/10/2011 12:45:00 EN 10/12/2011 12:45:00
j'utilise le code ci dessous
Workbooks.Open Filename:= _
    "D:\Users\l.linares\Desktop\macro\Commandesenretard.csv"
        
     
   ActiveWorkbook.SaveAs Filename:= _
    "D:\Users\l.linares\Desktop\macro\archives\commandes_en_retard.txt", FileFormat:=xlText, CreateBackup:=False
  ActiveWindow.Close
    
  Workbooks.OpenText Filename:= _
   "D:\Users\l.linares\Desktop\macro\archives\commandes_en_retard.txt", Origin:= _
   xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
    Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
      Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 2), _
      Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
     , 1), Array(16, 1), Array(17, 1), Array(18, 1)), TrailingMinusNumbers:=True
        
          
  Dj = Replace(Date, "/", "-")
   ActiveWorkbook.SaveAs Filename:= _
     "D:\Users\l.linares\Desktop\macro\Cde_en_Retard_" & Dj & ".xlsx", _
      FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Merci de votre aide

Laurent

ucfoutu · Answer

Bo njour,
et ?

Toute ta rédaction est faite à l'indicatif présent et signifie donc que c'est ce que TU AS !
Je comprends alors mal la dernière phrase : Merci de votre aide 
Tu as une question ? ===>> formule-la donc de manière claire et détaillée.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

linoumios · Answer

Re bonjour,
alors comment peut on s'assuer que des dates restent dans le format europeen (je ne veux pas de date américaine) ?

L'ai je bien formulé ?

Cordialement

Lurent

ucfoutu · Answer

Ta question serait-elle finalement :
comment, après avoir importé des données (quelle que puisse en avoir été l'origine, fichier texte ou non)  au format de date américain, les transformer au format européen ?
Si oui : importe les dans une colonne formatée au format américain, puis modifie (au format européen) la colonne en cause (en reformatant cette colonne).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

linoumios · Answer

Pas totalement
Par défaut les dates sont en format européen dans le fchier CSV. j'ouvre le fichier par le biais d'une macro.
Je me retrouve avec des dates au format américain (mais pas toutes).
du fait d'ouvrir le fichier avec une macro, je ne peux pas formatée las colonnes.

Cordialement

Laurent

ucfoutu · Answer

Je me retrouve avec des dates au format américain (mais pas toutes). 
Alors là !
=>> sans solution autre qu'au pif et avec tous les risques que cela comporte (si le texte d'une date peut être traduit dans les deux formats sans erreur)



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Problème lors de l'ouverture d'ub fichier txt en xls /format date

5 réponses

Votre réponse

Discussions similaires