Probleme d'affichage de date dans une feuille Excel via Acces

[darkspoilt]

Bonjour,
J'ai un probleme d'affichage de date
j'aimerais qu'il m'affiche dans une cellule une date de facon francaise et non anglaise donc je tape ce code qui suit.

[cpp]wbfile.Sheets("R_anasyle_croisée").Range("J4").FormulaR1C1 = "10/" & m & "/20" & ad[/cpp]
ca devrai donner par exemple 10/06/2006 pour le 10 juin 2006
Or automatique il met met 06/10/2006 pour le 10 Juin 2006

Comment puisje résoudre ce probleme merci d'avance

 

[darkspoilt]

J'ai essayé ca mais il me met imposibilité de définier l'objet numberformat dans la classe range peut t'on m'expliquer ou est le probleme
Merci d'avance

[cpp] Feuille.Range("I4") = DateSerial(Annee, mois, Jour)
Feuille.Range("I4").NumberFormat = "10/" & m & "/20" & ad2
Feuille.Range("J4") = DateSerial(Annee, mois, Jour)
Feuille.Range("J4").NumberFormat = "10/" & m & "/20" & ad
[/cpp]

Feuille est un worksheets

 

[darkspoilt]

j'avais mal fait j'avais pas trop compris le truc
voila la bonne solution
[cpp] wbfile.ActiveSheet.Range("I4") = DateSerial(ad2, m, 10)
wbfile.ActiveSheet.Range("I4").NumberFormat = "dd/mm/yyyy"[/cpp]

 

[zeb]

Ben voilà. Ne pas confondre le contenu de la cellule et le format d'affichage de ce contenu.