Convertir Date format texte en format date dans textbox

Bonjour à tous,

Je bloque sur quelque chose de certainement tout bête :

En cellule "A1" j'ai une date écrite en toute lettre type "Lundi 04 Mai 2020".

Lorsque j'ouvre mon Userform, je souhaite que cette date en question soit récupérée et convertie en format jj/mm/aaaa puis copié dans un TextBox.

J'ai testé CDate()

J'ai testé Format()

Rien n'y fait j'ai toujours des erreurs de type 13 ou alors il ne se passe juste rien ...

Quelqu'un à un début de piste à me donner ?

Merci d'avance.

Bonjour,

En cellule "A1" j'ai une date écrite en toute lettre type "Lundi 04 Mai 2020".

tu pourrais mettre une vrai date en cellule A1 (2020-05-04)

et mettre cette cellule au format personnalisé jjjj j mmmm aaaa

Bonjour i20100,

Oui j'avais pensé à cette solution mais je me demandais si il n'y avait pas un moyen de la faire uniquement avec une Macro.

L'idée serait que peut importe le format de cellule de A1 cela me renvoie une date type jj/mm/yyyy .

Personne pour m'aider ? Je suis sur que c'est faisable en VBA mais j'ai testé tout ce que je connais ...

Bon je me réponds à moi meme du coup :

TextBox1 = Format(Mid(Sheets("My Sheet").Range("A1").Value, InStr(Sheets("My Sheet").Range("A1").Value, " ")), "dd/mm/yyyy")
Rechercher des sujets similaires à "convertir date format texte textbox"