Mettre une date donne sous la forme année mois jour

[christ-94]

Bonjour

Voila
je cherche a mettre un date qui est stocke en A1 "de la forme jeudi 10 août 2007" , sous la forme année mois jours en B1

exemple :
le 1 janvier 2001 cela donne 20010101

après recherche et plusieurs essais je n'ai pas réussi a le faire
.cela fonctionne avec des mois du type 10,11,12 mais pas avec les mois 1 a 9 il ne met pas le 0 devant


ci-joint le code

    x = InStr(Range("a1").Value, " ")
    Range("b1").Value = CDate(Mid(Range("a1").Value, x, Len(Range("a1").Value) - x + 1)) 'modification de la date
    Date2 = Range("b1")
    Range("b3") = Year(Date2) & Month(Date2) & Day(Date2)

Merci de votre aide

 

[pierrejean]

Re : Mettre une date donne sous la forme année mois jour

bonjour christ

teste ceci:

    Range("b3") = Format(Range("B1"), "yyyymmdd")

 

[christ-94]

Re : Mettre une date donne sous la forme année mois jour

Re-bonjour


Rapide et fonctionnelle , je suis trop nul ou trop novice 🙂
par contre un grand merci pour ton aide

cela fonctionne a merveille