Passer une date en quentième

[malabarbe]

Bonsoir,
j'ai une date sous la forme : dimanche 12 septembre 2010
Je l'ai épurée pour obtenir 12/09/2010

La cellulle affiche bien 12/09/2010,
mais quand je fais un msgbox de la cellule,
la date deviens : 09/12/2010

Par le fait le quantième est faux
Pour obtenir le quantième je fais :

MsgBox Cells(1, 20) 'Affiche 09/12/2010
Cells(1, 20).Select
Selection.NumberFormat = "0"
MsgBox Cells(1, 20) 'Affiche 40521 Quantième faux !

Pouvez-vous m'aider a débloquer cette situation ?

 

[malabarbe]

Re : Passer une date en quentième

Bonsoir Jean-Marcel,

Non, le jour et le mois sont toujours inversé

Par contre si je saisis manuellement la date
dans uns celulle et que par macro je fais :
Selection.NumberFormat = "0"

La, le quantième est bon !

 

[malabarbe]

Re : Passer une date en quentième

Ok,

cells(1, 10) = dimanche 12 septembre 2010
zzz2 = cells(1, 10)
Cells(1, 10) = Replace(zzz2, " septembre ", "/09/")
zzz3 = cells(1, 10)
Cells(1, 10) = Replace(zzz3, "dimanche ", "")
Cells(1, 10).Select
Selection.NumberFormat = "0"
MsgBox Cells(1, 10) 'Affiche 40521 Quantième faux !

 

[malabarbe]

Re : Passer une date en quentième

MsgBox Format(CDate(Cells(1, 20)), "dd/mm/yy;@")

ne change rien !

 

[malabarbe]

Re : Passer une date en quentième

Je suis reparti d'une feuille vierge,
effectué le Sub

Et ma celulle affiche : 30/12/99

La misère !

 

[malabarbe]

Passer une date en quantième

Bonjour Jean-Marcel,

J'avais du faire une erreur de celulle !

C'est vrai, cela fonctionne.

Merci pour votre aide.

Bonne journée.

@ +