Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mise en page vba

Mise en page vba

6 réponses
Avatar
Nico
Bonsoir

Dans ma macro de mise en page en entete à droite je souhaite mettre la date
en fonction du jour ou j'ouvre le fichier, evidemment pas de soucis car le
bouton existe mais je souhaite changer son format mmmm aaaa (Fevrier 2006)

Comment l'obliger à mettre ce format ?

.RightHeader = ??????

Merci
Nico
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
| (Fevrier 2006)
| Comment l'obliger à mettre ce format ?
| .RightHeader = ??????

.RightHeader = Application.Proper(Format(Date, "mmmm yyyy"))

AV
Avatar
michdenis
Bonjour "Nico" ,

Tu choisis le format de ton choix...

.RightHeader = Format(Date, "d dd mmm yyyy")


Salutations!
Avatar
Nico
Merci Mich

Nico

"Nico" a écrit dans le message de news:

Impec, merci AV
Mais sait-on jamais (malgrés que j'y crois guere) l'idéal aurait été de
mettre le mois en anglais. C'est possible ???
Nico

"AV" a écrit dans le message de news:
#
| (Fevrier 2006)
| Comment l'obliger à mettre ce format ?
| .RightHeader = ??????

.RightHeader = Application.Proper(Format(Date, "mmmm yyyy"))

AV








Avatar
AV
| l'idéal aurait été de
| mettre le mois en anglais. C'est possible ???

lesMois = Array("January", "February", "March", "April", "May", "June", "July",
"August", "September", "October", "November", "December")
.RightHeader = Application.Index(lesMois, Month(Date)) & " " & Year(Date)

AV
Avatar
Nico
Ouah, c'est nickel

Merci encore

Nico

"AV" a écrit dans le message de news:

| l'idéal aurait été de
| mettre le mois en anglais. C'est possible ???

lesMois = Array("January", "February", "March", "April", "May", "June",
"July",

"August", "September", "October", "November", "December")
.RightHeader = Application.Index(lesMois, Month(Date)) & " " & Year(Date)

AV




Avatar
Modeste
Bonsour® Nico avec ferveur ;o))) vous nous disiez :
Mais sait-on jamais (malgrés que j'y crois guere) l'idéal aurait été de
mettre le mois en anglais. C'est possible ???


;o)))
possible aussi de mettre ta pendule à l'heure ??

With ActiveSheet.PageSetup
.RightHeader = Format(Date, "[$-F801]dddd, mmmm dd, yyyy")
End With

--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr