Modifier le format d'une date pour la mettre en anglais

[roulax]

Bonjour à tous,

Petite question en rapport avec le format d'une date.
Dans une macro, j'ai créé le code suivant écrivant dans la cellule A1 "CR + date to date". Les dates sont en français.

Je cherche à mettre ces dates au format mmmm-yy en Anglais, par exemple june-10.

Range("A1").Value = "CR " & Format(DateSerial(Year(Date) - 1, Month(Date), 1), "MMMM-YY") & " to " & Format(DateSerial(Year(Date), Month(Date) - 1, 1), "MMMM-YY")

Y-a-t-il une solution ?

 

[Cousinhub]

Re : Modifier le format d'une date pour la mettre en anglais

Bonjour,

une solution, entre autres....

Sub dates_anglaises()
Dim Tblo(1)
Dim I As Byte
For I = 0 To 1
    Tblo(I) = Application.Choose(Month(Date) - I, "January", "February", "March", "April", "May", "June", "July", "August", _
    "September", "October", "November", "December")
Next I
Range("A1").Value = "CR " & Tblo(0) & "-" & Right(Year(Date) - 1, 2) & " to " & Tblo(1) & "-" & Right(Year(Date), 2)
End Sub

Pas jouli, jouli, mais ça fonctionne.....

 

[roulax]

Re : Modifier le format d'une date pour la mettre en anglais

Re bhbh,

Merci pour ta réponse,

Je vais tester.

 

[Guest]

Re : Modifier le format d'une date pour la mettre en anglais

bonjour,

Hello cousin ssssssssssssssssssssssssssssssss

Puisque je l'ai fait:

 Dim English: English = Array("January", "Febuary", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
 
 'Si Date est en décembre alors passer à l'année suivante.
 Dim date2 As Date: date2 = DateAdd("m", 1, Date)
 
 Range("A1").Value = "CR " & English(Month(Date) - 1) & " " & Format(Year(Date), "yy") & " to " & English(Month(date2) - 1) & " " & Format(Year(date2), "yy")

A+
A++ Bh²

 

[Cousinhub]

Re : Modifier le format d'une date pour la mettre en anglais

Hi, Ges

En lisant "trop vite" ton code, j'ai eu peur....

Comment, la fonction "English" existe? Et on ne m'aurait rien dit....

Mais j'avais pas vu ta première ligne.....Ouf.....

Euh, légère entorse à la charte : "mdr"

Bonne soirée

 

[roulax]

Re : Modifier le format d'une date pour la mettre en anglais

Re bhbh, Hasco,

Merci pour vos solutions.