Discussion :

[yann26]

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 :

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

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 :

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

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

[Philippe Tulliez]

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

[Theze]

Bonjour,

Essai de cette façon :

Code :

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

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

Hervé.

[yann26]

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.

[Invité]

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

[Philippe Tulliez]

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

[yann26]

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

[AlainTech]

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 :

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

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 :

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

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.