Macro conversion date

Version imprimable

28/10/2008, 21h01
John81

Macro conversion date

Bonjour,

J'ai deux dates sur Excel qui sont enregistrées de la manière suivante:

Citation:

07 10 08
08 10 08

Je souhaiterais les convertir en:

Citation:

07/10/08
08/10/08

Lorsque je remplace les " " par des "/", il n'y a pas de problème.

Mais par contre lorsque je le fais à l'aide de la macro:

Code:

Selection.Replace What:=" ", Replacement:="/", LookAt:=xlPart

Le résulatat me donne:

Citation:

10/07/2008
10/08/2008

Qqn peut-il m'aider parce que je n'y comprends plus rien. Merci d'avance John81
28/10/2008, 21h17
JackOuYA

bonsoir,

tes dates sont initialement dans une cellule excel ? as tu essayé de changer le format d'affichage (sous excel.?) ,
28/10/2008, 21h39
John81

Bonsoir JackOuYA,

Oui mes dates se trouvent dans une cellule Excel et j'ai essayé de changer le format, mais le résultat est le même.

Je ne sais donc pas d'où peut provenir ce problème. John81
28/10/2008, 21h42
JackOuYA

Avant d'utiliser ton code VBA , quand tu change ton format .. tu arrive à quoi ? un format du genre :

Citation:

j-mmm-aaaa
28/10/2008, 22h22
John81

Oui par exemple, j'en ai essayé plusieurs

et si tu utilisé dateSerial ? :

Code:

1
2
3
4
5
6
7
8
9
Sub YaDates()
 Dim yaTb
 Dim st As String
 st = ActiveCell.Text
 yaTb = Split(st, " ")
 If UBound(yaTb) = 2 Then
   ActiveCell.Value = DateSerial(yaTb(2), yaTb(1), yaTb(0))
 End If
End Sub

28/10/2008, 22h55
John81

ça a l'air de marcher.

Merci JackOuYA et bonne soirée John81