Discussion :

[John81]

Bonjour,

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

07 10 08
08 10 08

Je souhaiterais les convertir en:

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 :

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

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

Le résulatat me donne:

10/07/2008
10/08/2008

Qqn peut-il m'aider parce que je n'y comprends plus rien. Merci d'avance John81

[JackOuYA]

bonsoir,

tes dates sont initialement dans une cellule excel ? as tu essayé de changer le format d'affichage (sous excel.?) ,

[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

[JackOuYA]

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

j-mmm-aaaa

[John81]

Oui par exemple, j'en ai essayé plusieurs

[JackOuYA]

et si tu utilisé dateSerial ? :

Code :

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

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