Envoyer la date avec le mois en lettre

kgigant -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'ai une macro qui envoie un texte via ma messagerie outlook, a la fin de ce texte j'insère la date d'une cellule d'un tableur excel.
Mon problème est le suivant, dans mon tableau excel, la date est sous la forme 01/janvier/2011 et lorsque la macro s'execute la date devient 01/01/2011.
.
Il me faut impérativement le mois en lettre

merci
A voir également:

2 réponses

Mike-31 Messages postés 19572 Date d'inscription   Statut Contributeur Dernière intervention   5 140
 
Salut,

Colles ta macro dans un post ou modifie la ligne qui doit formater la cellule dans ce format
NumberFormat = "dd/mm/yyyy"
remplace par
NumberFormat = "dd/mmmm/yyyy"
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Bonjour,
Certainement un problème de déclaration du type de ta variable. Si tu déclares ta date "As Date", tu n'auras pas le bon format. Déclares la "As String".
Essaie voir ce pitit test :
En A1 écrit ta date au format : jj/mmmm/aaaa puis lance cette macro :
Sub test()
Dim madate As Date
Dim madate2 As String
madate = Range("A1")
madate2 = Range("A1")
madate = Format(madate, "dd/mmmm/yyyy")
madate2 = Format(madate2, "dd/mmmm/yyyy")
MsgBox madate
MsgBox madate2
End Sub
0