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

PascalXLD

XLDnaute Barbatruc

• 11 Avril 2007

• #2

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

Bonjour

essaies

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

Bon courage

 

Vote positif 0 Vote négatif

G

Guigui

XLDnaute Occasionnel

• 11 Avril 2007

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 11 Avril 2007

• #4

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"))

 

Vote positif 0 Vote négatif

G

Guigui

XLDnaute Occasionnel

• 11 Avril 2007

• #5

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

re,

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

Slts
Guillaume

 

Vote positif 0 Vote négatif