XL 2013 Problème format Date sur Excel

Landry225

XLDnaute Nouveau
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
 

Pièces jointes

  • Fichier de producion SA - JUILLET 2020 - AOUT 2020.XLS
    295.5 KB · Affichages: 29

Modeste geedee

XLDnaute Barbatruc
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é !!!
 

cp4

XLDnaute Barbatruc
Bonsoir à toutes et à tous,:)
Je l'ai fait, je le poste. Voici donc ma modeste contribution.
VB:
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.;)
 

Discussions similaires