Faire accepter format date

Fermé
Purenergy Messages postés 3 Date d'inscription dimanche 30 mai 2010 Statut Membre Dernière intervention 7 juin 2010 - 7 juin 2010 à 19:18
Bonjour,

J'ai fais les modif pour qu'Excel reconnaisse les dates mais cela ne fonctionne pas.

Voici ma macro:

Sub AJUSTEMENT_DATES()
'
' AJUSTEMENT_DATES Macro
'

'
ActiveWindow.SmallScroll ToRight:=4
Range("I:I,J:J").Select
Range("J1").Activate
ActiveWindow.SmallScroll ToRight:=2
Range("I:I,J:J,L:L").Select
Range("L1").Activate
Selection.Replace What:="FEV", Replacement:="-fév-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="AVR", Replacement:="-avr-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="MAI", Replacement:="-mai-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="AOU", Replacement:="-août-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="DEC", Replacement:="-déc-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Range("A1").Select
End Sub

Comment faire reconnaître mes nouvelles dates en format date à Excel?

À l'aide S.V.P.

Merci,