Les dates en  super VBA ++

http://www.excel-pratique.com/fr/astuces_vba/format_dates.php

Caractères	Exemple	Description
d	7	Jour (numérique sans zéro)
dd	07	Jour (numérique avec zéro)
ddd	mar.	Jour (texte raccourci)
dddd	mardi	Jour (texte entier)
m	2	Mois(numérique sans zéro)
mm	02	Mois (numérique avec zéro)
mmm	févr	Mois (texte raccourci)
mmmm	février	Mois (texte entier)
yy	12	Année (2 derniers chiffres)
yyyy	2012	Année (4 chiffres)
h	8	Heures sans zéro (0-23)
hh	08	Heures avec zéro (00-23)
n	3	Minutes sans zéro (0-59)
nn	03	Minutes avec zéro (00-59)
s	8	Secondes sans zéro (0-59)
ss	08	Secondes avec zéro (00-59)

---

Date_test = Now() 'Now renvoie la date et l'heure en cours (07.02.2012 09:09:02)
Range("A1") = Format(date_test, "dd.mm.yy") Renvoie : 07.02.12

Format(date_test, "dddd d mmmm yyyy") 'Renvoie : mardi 7 février 2012

WorksheetFunction.Proper(Format(date_test, "dddd d mmmm yyyy")) Renvoie : Mardi 7 Février 2012

Range("A4") = Format(date_test, "ddd dd") 'Renvoie : mar. 07
Range("A5") = "'"& Replace(UCase(Format(date_test, "ddd dd")), ".", "") 'Renvoie : MAR 07

Range("A6") = UCase(Format(date_test, "mmmm yyyy")) 'Renvoie : FEVRIER 2012

Range("A7") = Format(date_test, "dd.mm.yyyy hh:mm") 'Renvoie : 07.02.2012 09:09

Range("A8") = Format(date_test, "Le d mmmm à hhmm'ss''") 'Renvoie : Le 7 février à 9h09'02''
Range("A9") = Format(date_test, "hHmm") 'Renvoie : 9H09

-