XL 2013 Problème format Date sur Excel

[Landry225]

Bonsoir!
J'ai un soucis avec un fichier Excel exporté d'une application je dois retraiter les données sauf que les colonnes comportant les dates colonne I et J ne sont pas au format date, j'ai 500 lignes a traiter sur plusieurs mois pour chacune des colonnes ce qui fait 1000 par feuilles depuis janvier.

Quelqu'un pourrait il m'aider svp ?
le fichier est en pièce jointe.

Merci pour votre assistance

 

[Landry225]

j'ai essayé mais cela n'a pas fonctionné
je vais essayé de nouveau

je te reviens.

 

[Landry225]

j'ai plusieurs colonne en copiant il me recopie les valeurs de la feuille du mois d'août et ne garde pas les données du mois de juillet.

Merci à toi

 

[Modeste geedee]

Bonsour®

Bonsoir!
J'ai un soucis avec un fichier Excel exporté d'une application je dois retraiter les données sauf que les colonnes comportant les dates colonne I et J ne sont pas au format date, j'ai 500 lignes a traiter sur plusieurs mois pour chacune des colonnes ce qui fait 1000 par feuilles depuis janvier.

Quelqu'un pourrait il m'aider svp ?
le fichier est en pièce jointe.

Merci pour votre assistance

fournir ici le fichier d'export (.txt, .csv, .dat), avant toute intervention Excel !!!!!
si l'export est déjà au format Excel ,
voir l'application origine, l'export est mal paramétré !!!

 

[JHA]

Bonjour à tous,

J'ai copié ton tableau de juillet en septembre pour exemple.

JHA

 

[cp4]

Bonsoir à toutes et à tous,🙂
Je l'ai fait, je le poste. Voici donc ma modeste contribution.

Option Explicit

Sub convertDate()
   Dim dl As Long, I As Long, cell As Range, Rng As Range, Ws As Worksheet
   For Each Ws In ThisWorkbook.Worksheets
      If Ws.Name <> "RECAP" Then
         With Ws
            dl = .Range("A" & Rows.Count).End(xlUp).Row
            Set Rng = .Range("H4:J" & dl)
            For Each cell In Rng
               If Not IsDate(cell) Then
                  cell.NumberFormat = "General"
                  If Len(cell) = 8 Then
                     cell = Mid(cell, 3, 2) & "/" & Left(cell, 2) & "/" & Right(cell, 4)
                  Else
                     cell = Mid(cell, 2, 2) & "/" & Left(cell, 1) & "/" & Right(cell, 4)
                  End If
               End If
            Next
            Rng.NumberFormat = "m/d/yyyy"
         End With
      End If
   Next Ws
   MsgBox "Fin de traitement des dates!", vbInformation, "DATE CONFORME"
End Sub

Bonne soirée.😉