Encore un problème de date

Ken Hutchinson · 16 Février 2009

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 · 16 Février 2009

Re : Encore un problème de date

bonjour Ken Hutchinson

A tester:

Code:

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 · 16 Février 2009

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 · 16 Février 2009

Re : Encore un problème de date

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

Encore un problème de date

Ken Hutchinson

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

Ken Hutchinson

XLDnaute Occasionnel

Discussions similaires