Vba format date francais/anglais

bonjour le forum

dans une maccro, je souhaite inscrire la date du jour dans une cellule dans le but de la comparer à une autre date inscrite dans une autre cellule

le code :

Code:

---

range("zz1").value = format(Date, "dd/mm/yyyy")

---

voici mon problème :
si la date du jour = 11/08/2012 => zz1 = 08/11/2012
si la date du jour = 15/08/2012 => zz1 = 15/08/2012

si le jour est superieur à 12, la date est francaise, si elle inferieur à 12 il me l'a met en anglais

je souhaiterai toujours l'avoir en français, comment puis je faire.
j'ai pensé à une condition sur la valeur du jour,

Code:

---

1 2 3 4 5

if day(date)>12 range("zz1").value = format(Date, "mm/dd/yyyy") else: range("zz1").value = format(Date, "dd/mm/yyyy") end if

---

mais je ne suis pas sur que ca marche à chaque fois et je pense qu'il y a un moyen plus simple

a+

Yann

Bonjour,
Je te conseille la lecture de ce tutoriel Comprendre et gérer les dates sous Excel et en VBA

Bonjour,

Essai de cette façon :

Code:

---

1 2	Range("zz1").Value = DateValue(Format(Date, "dd/mm/yyyy"))

---

Hervé.

merci pour votre lien, mais cela m'a plus embrouillé qu'autre chose.

de plus je n'ai pas l'impreesion qui aborde la notion de date du jour dans ce tuto.

Bonjour,
regardes ce lien: http://www.developpez.net/forums/d14...ate-francaise/

Bonjour,
J'avais omis de donner les deux liens mais Hervé t'a donné la solution
Le deuxième lien Les Fonctions Date/Heure et tout particulièrement le chapitre Les fonctions de conversion et d'information

super la solution de Hervé fonctionne.

Merci pour tout les liens des tuto.

problème résolu, en esperant que ca puisse servir à d'autre

a+ le forum et encore merci pour votre aide

Yann

Bonjour à tous,

Une règle importante concernant les dates et Excel:
Ne jamais formater une date pour l'écrire dans une cellule.

Ceci devrait fonctionner à tous les coups quelle que soit la localisation:

Code:

---

Range("zz1").Value = Date

---

Pour Excel et VBA, une date est un nombre.
Si VBA écrit une String représentant une date dans une cellule, Excel va tenter de l'interpréter mais en se basant sur la localisation US.
Ce n'est que si la conversion n'aboutit pas (mois > 12 en notation US) qu'Excel va essayer de changer de localisation.

Pour vous en convaincre, essayez ce code dans le module d'une feuille vierge:

Code:

---

1 2 3 4

Sub TestDate() [A1].NumberFormat = "dd/mm/yyyy" [A1].Value = 41866 End Sub

---

Dans ce code, on dit à Excel comment il doit présenter le nombre qu'on lui donne.