Discussion :

[Djohn]

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 :

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

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 :

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

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 pour votre aide

[jfontaine]

essai comme ca

Code :

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

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)

[ouskel'n'or]

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 :

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

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

[mordrhim]

Ma technique pour les dates :

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

ce qui donne

Code :

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

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

[LeForestier]

Bonjour,
et ma technique...

Code :

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

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+

[ouskel'n'or]

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

[Djohn]

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,

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

Merci à tous

[jfontaine]

pour info au lieu de faire

Code :

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

Left(Right(boite, 7), 2)

tu peux faire

Code :

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

mid(boite, 7, 2)