affichage de date dans une cellule Excel

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

Code:

---

wbfile.Sheets("R_anasyle_croisée").Range("J4").FormulaR1C1 = "10/" & m & "/20" & ad

---

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 puis-je résoudre ce probleme merci d'avance

PS: je dirige ma feuille excel depuis Access

Bonjour

Pour la manipulation des dates, j'utilise la fonction DateSerial

Code:

---

1 2	...range("j4")=dateserial(Annee,Mois,Jour) ...range("j4").numberformat="dd/mm/yyyy"

---

Ok?

Ce la de fonctionne pas
J'ai une erreur ou il ya ecris "impossible de définir la propriété numberformat de la classe range".

voila le code je pense avoir bien fait

Code:

---

1 2 3 4

wbfile.ActiveSheet.Range("I4") = DateSerial(Annee, mois, Jour) wbfile.ActiveSheet.Range("I4").NumberFormat = "10/" & m & "/20" & ad2 wbfile.ActiveSheet.Range("J4") = DateSerial(Annee, mois, Jour) wbfile.ActiveSheet.Range("J4").NumberFormat = "10/" & m & "/20" & ad

---

Non, tu n'as pas bien fait ;)

Pour la propriété NumberFormat, tu ne dois pas passer les valeurs!! Par contre, tu dois passer les valeurs réelles à la fonction DateSerial! Les mots Annee,Mois,Jour doivent bien entendu être remplacés par les valeurs (en dur ou par variables...)

Tu dois utiliser

Code:

---

1 2 3

wbfile.ActiveSheet.Range("I4") = DateSerial(ad2,m,10) wbfile.ActiveSheet.Range("I4").numberformat="dd/mm/yyyy"

---