Encore un problème de date

[Ken Hutchinson]

Bonjour à tous,

J'ai un problème de date. je fais une extraction d'une applis et les dates sont bizarres mais au format français. Je fais une bidouille mais certaines dates passent au format US...

Voici un fichier avec les dates originales et vous verrez que le 1er mars 2009 devient le 3 janvier 2009... en lançant la macro DateKen...

merci de votre aide.

 

[pierrejean]

Re : Encore un problème de date

bonjour Ken Hutchinson

A tester:

Sub dateken()
        Columns("D:D").NumberFormat = "General"
        Columns("D:D").Replace What:="-", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
        For n = 1 To Range("D65536").End(xlUp).Row
         Range("D" & n) = CDate(Range("D" & n))
        Next n
End Sub

 

[jp14]

Re : Encore un problème de date

Bonjour Ken Hutchinson
Bonjour Pierrejean

Une autre méthode
Sélectionner la colonne
Menu "données"
Convertir
étape 3 sélectionner Date

JP

 

[Ken Hutchinson]

Re : Encore un problème de date

Ca marche super pierrejean ! Merci beaucoup aussi jp14 pour la réponse !