Format des dates a l'envers

Bonjour,

Tout d'abord un grand merci, j'ai tendance a poser pas mal de question, et vous avez toujours des réponses a m'apporter.



Une macro va récupérer dans un fichier excel, une date dont le format est le suivant JJ.MM.AAA.
Je mets en forme pour remplacer les points par des slashs JJ/MM/AAAA
Lorsque le jour de la date est comprise entre le 1er et le 9 du mois, ma mise en forme inverse le jour et le mois ce qui me donne MM/JJ/AAAA, par contre si le jour est entre le 10 et le 31 pas de souci.
Ex : 04.09.2007 devient 09/04/2007



Voici donc 2 scripts pour essayer de détourner le pb, mais qui ne l’ont finalement pas résolus
Exemple avec dans la cellule chell (« A1 ») 04.09.2007

Code:

---

1 2 3 4 5 6

‘ici Je fais un simple remplace . par / Sub test () Dim chell as range Set chell = Range("a1") chell. Replace what:=".", Replacement:="/" end sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

‘ici je récupère uniquement le JJ MM et AAAA sans les points Sub essai () Dim boite As String Dim chell as range Set chell = Range("a1")   boite = chell boite = Left(boite, 2) & "/" & Left(Right(boite, 7), 2) & "/" & Right(boite, 4) chell = boite ‘ le format c’est inversé End sub

---

Je vais essayé une autre variante, mais j'ai peu d'espoir.

Encore :merci: pour votre aide

essai comme ca

Code:

---

1 2	boite = datevalue(Left(boite, 2) & "/" & Left(Right(boite, 7), 2) & "/" & Right(boite, 4))

---

datevalue utilisant le format date des paramètres régionnaux (si je ne me trompe)

Citation:

---

Envoyé par Djohn

Une macro va récupérer dans un fichier excel, une date dont le format est le suivant JJ.MM.AAA.
Je mets en forme pour remplacer les points par des slashs JJ/MM/AAAA

---

Quand tu as fait ça, teste ça

Code:

---

1 2	LaDate = "25/07:2007" 'par exemple NewDate = Format(Val(cdate(LaDate)),"dd/mm/yyyy")

---

Tu dis mais il y as certainement une solution ;)

Ma technique pour les dates :

remplacement des "." par "/"
mise au format date
Changement du format de la cellule

ce qui donne

Code:

---

1 2 3 4 5 6 7 8

Sub essai_bis() Dim boite As String Dim chell As Range Set chell = Range("a1") boite = Replace(chell.Value, ".", "/") 'remplacement des "." par "/" chell = CDate(boite) 'mise au format date chell.NumberFormat = "DD/MM/YYYY" 'Changement du format de la cellule End Sub

---

Bonjour,
et ma technique...

Code:

---

1 2 3 4 5 6

Sub Essai3 Dim T, d Sheets("Feuil1").Activate T = Split(Range("A1").Text, ".", -1) Range("B1").Value = DateSerial(T(2), T(1), T(0)) End Sub

---

A+

Citation:

---

Envoyé par LeForestier

Bonjour,
et ma technique...[/CODE]

---

Je pense comme toi, en désespoir de cause. On est certain qu'elle fonctionne.
Djohn, tu peux peut-être aussi jeter un oeil ici, il y a quelques idées... dont celle de LeForestier si les autres ne fonctionnent pas ;)

un grand merci


jfontaine : le datevalue n'a pas fonctionné, pourtant les options régionales sont biens en français(France)


ouskel'n'or : n'a pas non plus fonctionné, la date est changée à l'année 1900 lol, par contre je ne connaissais l'instruction "val" ca va mettre utile pour la prochaine fois

mordrhim : top ca a fonctionné, la date est au format espérée, :king:

LeForestier : je n'ai pas encore tester ta technique, mais je m'y empresse.

Merci à tous

pour info au lieu de faire

Code:

---

Left(Right(boite, 7), 2)

---

tu peux faire

Code:

---

mid(boite, 7, 2)

---