Modification du Format de Date

Bonjour,

J ai dans mon fichier des dates dans le format suivant 8/11/2014 12:00:00 AM, j'aimerais mettre ces dates en format DD/MM/YYYY.
Mon probleme est que mes dates ne sont pas reconnues par excel et je n ai pas reussi a trouver un code qui me permette de les modifier directement.
Quelqu'un aurait il une idee ?

Merci,

http://www.developpez.net/forums/d14...e/#post7919409

Mon Probleme c est que si j utilise une formule du type =DATEVALUE(MID(B1022;4;2) & "/" & LEFT(B1022;2) & "/" & RIGHT(B1022;4)) ca ne fonctionnera pas car la longueur de ma chaine de caractere change.

Bonjour le fil, bonjour le forum,

Peut-être un : Split(Ta_cellule_date_longue," ")(0) qui devrait de renvoyer le texte avant l'espace = 8/11/2014 (de ton exemple)... Non testé...

donnes plusieurs exemple de txt qui change de longueur et ou il faut extraire la date

Concretement mes dates peuvent etre sous les formes suivantes: 8/22/2014 12:00:00 AM ou 11/22/2014 12:00:00 AM ou 8/8/2014 12:00:00 AM ou 11/8/2014 12:00:00 PM.

Une fonction basique

Code:

---

1 2 3 4

Function MaDate(ByVal Tmp As String) As Date   MaDate = CDate(Format(Tmp, "mm/dd/yyyy")) End Function

---

Citation:

---

Envoyé par FFGUY

Concretement mes dates peuvent etre sous les formes suivantes: 8/22/2014 12:00:00 AM ou 11/22/2014 12:00:00 AM ou 8/8/2014 12:00:00 AM ou 11/8/2014 12:00:00 PM.

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub TEST() Debug.Print txtDate(" 8/22/2014 12:00:00 AM ") Debug.Print txtDate(" 11/22/2014 12:00:00 AM ") Debug.Print txtDate(" 8/8/2014 12:00:00 AM ") Debug.Print txtDate(" 11/8/2014 12:00:00 PM.") Debug.Print txtDate(" 11/8/2014 12:00:00 BOF.") End Sub   Function txtDate(txt As String) As Date Dim d Dim h h = Split(Trim(txt), " ") d = Split(h(0), "/") txtDate = d(2) & "-" & d(0) & "-" & d(1) & " " & h(1) End Function

---

Parfait, ca marche tres tres bien.

Merci Beaucoup a vous et Bonne journee.