conversion date en VBA

[Sebwan]

Bonjour à tous,

J'aimerais convertir, à l'aide d'une macro, une date en format yyyymmdd en une date dd/mm/yyyy.

Mon idée de base était de faire un stxt(A1,7,2) & "/" & stxt(A1,5,2) & "/" stxt(A1,1,4) mais j'ai un problème avec le format car j'obtiens alors mm/dd/yyyy....

Quelqu'un a-t-il la solution pour ce problème?

Merci d'avance!

 

[Cousinhub]

Re : conversion date en VBA

Bonjour,

en supposant tes dates de A2 à Axxx, essaie avec ce code :

    Range("A2:A" & [A65000].End(xlUp).Row).TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, FieldInfo:=Array(1, 5), TrailingMinusNumbers:=True

Bonne semaine

 

[Sebwan]

Re : conversion date en VBA

Genial!

Merci beaucoup, et bonne semaine!

 

[Bebere]

Re : conversion date en VBA

bonjpour Sebwan
à essayer
madatetoconvert = "2008/10/05"
msgbox DateSerial(Left(madatetoconvert, 4), Mid(madatetoconvert, 6, 2), Right(madatetoconvert, 2))

à bientôt