Envoyer la date avec le mois en lettre

Fermé
kgigant - 20 avril 2011 à 08:50
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 20 avril 2011 à 09:43
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

2 réponses

Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 5 041
20 avril 2011 à 09:20
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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
20 avril 2011 à 09:43
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