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
MichDenis
Il y a ceci :
'------------------------ Sub test() 'Abréviation de la liste des mois tel que tu désires arr = Array("Jan", "Feb", "Mar", "Apr", "Mai", "June") x = Application.Index(arr, Month(Now)) MsgBox Format(Now, "dd/" & x & "/YYYY") End Sub '------------------------
"Poulpor" a écrit dans le message de news:
Bonjour,
Je voudrai, sur mon window Frais que MsgBox Format(Now, "DD/MMM/YYYY") me donne 18/APR/2007 et non 18/AVR/2007.
Est-ce possible par une fonction ou paramétrage, sans passer par un astuce ?
Merci d'avance.
Il y a ceci :
'------------------------
Sub test()
'Abréviation de la liste des mois tel que tu désires
arr = Array("Jan", "Feb", "Mar", "Apr", "Mai", "June")
x = Application.Index(arr, Month(Now))
MsgBox Format(Now, "dd/" & x & "/YYYY")
End Sub
'------------------------
"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de news:
33B580BA-BB0C-4E9A-B731-BF9BA54B8E39@microsoft.com...
Bonjour,
Je voudrai, sur mon window Frais que MsgBox Format(Now, "DD/MMM/YYYY") me
donne 18/APR/2007 et non 18/AVR/2007.
Est-ce possible par une fonction ou paramétrage, sans passer par un astuce ?
'------------------------ Sub test() 'Abréviation de la liste des mois tel que tu désires arr = Array("Jan", "Feb", "Mar", "Apr", "Mai", "June") x = Application.Index(arr, Month(Now)) MsgBox Format(Now, "dd/" & x & "/YYYY") End Sub '------------------------
"Poulpor" a écrit dans le message de news:
Bonjour,
Je voudrai, sur mon window Frais que MsgBox Format(Now, "DD/MMM/YYYY") me donne 18/APR/2007 et non 18/AVR/2007.
Est-ce possible par une fonction ou paramétrage, sans passer par un astuce ?