Mauvaise conversion date en macro

[barth66]

Bonjour à tous,

voila je vous avoue que je ne comprends pas trop d'ou provient mon souci.

Dans le fichier joint , quand je selectionne la colonne A puis que je fais CLTR+H pour rechercher . par / , la date reste bien au bon format ( 10.02.2017) pour la cellule A2.

Mais lorsque je passe par une macro ( ci dessous le code) il me l'a converti au format américain !!!

Columns("A:A").Select
Selection.Replace What:=".", Replacement:="/"

C'est un truc ou je m'arracccchhhheee les cheveux ,

Merci par avance pour votre aide,

 

[phlaurent55]

Bonjour Barth,

essaie ceci:

For Each cellule In Range("A2:A22") '(à adapter)
cellule.Value = Format(DateSerial(Right(cellule, 4), Mid(cellule, 4, 2), Left(cellule, 2)), "dd/mm/yyyy")
Next cellule

à+
Philippe

 

[laetitia90]

bonjour tous
avec convertir ??

[a1:a50000].TextToColumns Destination:=[a1], DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=0, Tab:=1, _
        Semicolon:=0, Comma:=0, Space:=0, Other:=0, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=1

 

[mapomme]

Bonjour barth66, phlaurent55,

Essayer :

Sub ConvDate()
  Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)
End Sub

edit : Bonjour laetitia90 . Pas rafraichi, pas vu ta réponse

 

[barth66]

Merci a tous !

Cdt,

 

[barth66]

Merci à tous !