Discussion :

[candyneige]

Bonjour à vous,

J'ai un soucis avec un fichier .DAT que je dois exporter vers excel et qui contient des dates. Seulement voila, sur le fichier, les dates se présentent sous deux formes, les premières dates sont au format dates mais ne s'affichent pas de la bonne manière ( même si c'est exact ). Exemple: le 07 mai 2019 s'affiche de cette manière - 05/07/2019. et Excel le reconnais comme étant le 05 juillet 2019.

le deuxième format des date est le format ' standard. Exemple le 13 Mai 2019 affiche 13/05/2019 mais Excel le reconnait comme un format standard, pas comme une date.

J'essaie de changer les format des dates de telle sorte que dans l'un où l'autre des cas, j'ai au final par exemple 07/05/2019 et non 05/07/2019.

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Workbooks("FICHIER TIMEKEYS").Worksheets("Données").Range("B:B").Select
 
For j = 2 To Workbooks("FICHIER TIMEKEYS").Worksheets("Données").Cells(Rows.Count, 1).End(xlUp).Row
 
    If Range("b" & j).NumberFormat = "m/d/yyyy" Then
 
              Range("J" & j) = Range("B" & j)
              Range("J" & j).NumberFormat = "dd/mm/yyyy"
   Else
 
              Range("J" & j) = Left(Range("B" & j), 2) & "/" & Mid(Range("B" & j), 4, 2) & "/" & Right(Range("B" & j), 4)
              Range("J" & j).Select
              Selection.NumberFormat = "mm/dd/yyyy"
   End If
 
Next j

Je joins fichier excel pour que vous ayez une vraie idée

[mercatog]

Bonjour
C'est normal, il faut travailler en amont dans ta procédure d'import.

[Menhir]

Pour ajouter à ce qu'à écrit mercatog ( ), je conseille d'ouvrir le DAT avec la méthode OpenText en mettant le paramètre "Local" à True et en définissant tes champs de date comme tel (paramètre FieldInfo).
https://docs.microsoft.com/fr-FR/off...books.opentext

Si tu procèdes correctement avec l'enregistreur automatique de macro, il pourras te fournir 90% du code.

[candyneige]

Merci à vous, j'ai réussi à trouver grâce à vos informations. Bonne journée à vous