mise en forme date

[gege21]

bonjours a tous
quand j'importe me donne la mise en forme de la date ne se fait pas comme il faut
je me retrouve en "jj-mm-aaaa" et sur d'autre ligne en "mm-jj-aaaa"
et je ve comprend par pourquoi
je veut que se soit en "jj-mm-aaaa"
merci de votre aide

Sub import_données_mini_maxi()

    Dim myDir$, fn$, txt$, sepa$, a(), dl As Long
    Dim n As Long, i As Long, f As Long, ff As Integer
    Dim d As Worksheet
    sepa = ";"
    myDir = ThisWorkbook.Sheets(2).[h4]
    fn = Dir(myDir & ThisWorkbook.Sheets(2).[h5])
    Do While fn <> ""
        ff = FreeFile
        Open myDir & fn For Input As #ff
        Do While Not EOF(ff)
            Line Input #ff, txt
            n = n + 1: ReDim Preserve a(1 To n)
            a(n) = Split(txt, sepa)
         Loop
        Close #ff
        fn = Dir()
    Loop
    Set d = ThisWorkbook.Sheets(4)
    With d
    With .[A1]
        For i = 2 To n
            .Offset(i - 1).Resize(, UBound(a(i)) + 1).Value = a(i)
            dl = d.[A65536].End(xlUp).Row
                .Resize(dl).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4)
                Next
    End With
    End With
End Sub

 

[ROGER2327]

Re : mise en forme date

Bonjour gege21

Avec la procédure qui suit, il me semble que les données sont correctement traduites.

[COLOR="DarkSlateGray"][B]Sub ouvrirDayFileTxt()
[COLOR="SeaGreen"]'Adapter le chemin "E:\XLD\dayfile.txt"
'[/COLOR]
   Workbooks.OpenText Filename:="E:\XLD\dayfile.txt", Origin:=xlMSDOS, _
      StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
      , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2, 1), _
      Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), _
      Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), _
      Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), _
      Array(18, 1), Array(19, 1)), DecimalSeparator:=",", TrailingMinusNumbers:=False
End Sub[/B][/COLOR]

Ce n'est sans doute pas exactement ce que vous souhaitez, mais c'est peut-être une piste...​

ROGER2327
#2900

 

[gege21]

Re : mise en forme date

bonjour ROGER2327

hélas se la ne change rien a mon problème
mais il faudrait que je reste sur se typé de macro
mais tout les idée sont les bien venu
😎

 

[gege21]

Re : mise en forme date

personne n'a d'ide pour moi
😱

 

[ROGER2327]

Re : mise en forme date

Re...

bonjour ROGER2327

hélas se la ne change rien a mon problème
mais il faudrait que je reste sur se typé de macro
mais tout les idée sont les bien venu
😎

Il me semble que ce que je propose change quelque chose : les dates sont récupérées dans Excel sans confusion entre le jour et le mois. À partir de là, il doit être possible de récupérer les données qui vous intéressent pour les placer à l'endroit qui vous convient.​

ROGER2327
#2903

 

[Staple1600]

Re : mise en forme date

Bonsoir gege21, ROGER2327, le fil, le forum

gege21
Tu aurais pu rester dans le fil d'origine 🙄

https://www.excel-downloads.com/threads/mise-en-forme-de-donnees.135777/

 

[gege21]

Re : mise en forme date

bonjour roger

effectivement sa marche bien mais il faut que se soit dans le même classeur
et ton importation en ouvre un nouveau
c pour sa que sa ne va pas
mais merci pour ta réponse
si tu a mieux je suis preneur
🙄

 

[ROGER2327]

Re : mise en forme date

Re...

Il suffit de copier les données dans le classeur créé, puis de de le fermer sans l'enregistrer... Quelque chose du genre :

[COLOR="DarkSlateGray"][B]Sub ouvrirDayFileTxt()
[COLOR="SeaGreen"]'Adapter le chemin "E:\XLD\dayfile.txt"
'[/COLOR]
   Workbooks.OpenText Filename:="E:\XLD\dayfile.txt", Origin:=xlMSDOS, _
      StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
      , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2, 1), _
      Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), _
      Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), _
      Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), _
      Array(18, 1), Array(19, 1)), DecimalSeparator:=",", TrailingMinusNumbers:=False
[COLOR="SeaGreen"]' [/COLOR]  
   With ActiveSheet
      .Range(.Cells(1, 1), .Cells(1, 1).SpecialCells(xlLastCell)).Copy Destination:=ThisWorkbook.Sheets(1).Range("A1")
   End With
   ActiveWindow.Close
End Sub[/B][/COLOR]

ROGER2327
#2905

 

[gege21]

Re : mise en forme date

il doit bien y avoir moyen d'y envoyer le donne directement sans passe par plusieurs feuille
😕

 

[ROGER2327]

Re : mise en forme date

Re...

il doit bien y avoir moyen d'y envoyer le donne directement sans passe par plusieurs feuille
😕

Peut-être. Je n'ai pas cela sous la main.
Mais d'autres vous trouveront probablement mieux.​

Bon courage.
ROGER2327
#2909