Traduire =TEXTE(B6;"jj/mm/aaaa") en VBA

[Guigui]

Bonjour le forum,

Je souhaite transformer des dates en format texte, j'ai trouvé grace au forum cette formule :

=TEXTE(B6;"jj/mm/aaaa")

mais je souhaiterais l'inclure dans un programme VBA, quelqu'un peut-il me la "traduire" ...

Merci d'avance pour votre aide
Slts
Guillaume

 

[PascalXLD]

Re : Traduire =TEXTE(B6;"jj/mm/aaaa") en VBA

Bonjour

essaies

cstr(format(range("B6"),"dd/mm/yyyy"))

Bon courage

 

[Guigui]

Re : Traduire =TEXTE(B6;"jj/mm/aaaa") en VBA

salut pascal76,

J'ai modifié ta proposition comme ceci pour l'ajuster à mon projet :

Sheets(3).Cells(c, 2) = CStr(Format(oWorkbookCellName, "dd/mm/yyyy"))

mais le resultat me donne bien une date mais au format date (calé a droite dans la cellule) alors que j'ai besoin qu'elle soit en format texte.

la formule : =TEXTE(B6;"jj/mm/aaaa") le fait.

Merci d'avance pour ton aide
Slts
Guillaume

 

[PascalXLD]

Re : Traduire =TEXTE(B6;"jj/mm/aaaa") en VBA

Re

en fait excel retransforme ton texte en date car tu doit être au format standard

Donc il faut forcer avant le format texte

Sheets(3).Cells(c, 2) .NumberFormat = "@"
Sheets(3).Cells(c, 2) = CStr(Format(oWorkbookCellName, "dd/mm/yyyy"))

 

[Guigui]

Re : Traduire =TEXTE(B6;"jj/mm/aaaa") en VBA

re,

!! T un chef pascal...
1000 merci.

Slts
Guillaume