Discussion :

[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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ok?

[darkspoilt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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