[RÉSOLU]: Mise a jour date bilingue ( francais ET anglais)

[Gen Rose]

Bonjour 😱

J'aimerais savoir s'il est possible d'obtenir, lorsque j'enregistre mon fichier, une date bilingue.


Voici le format que je tape à la main: Au 30 AVRIL 2013 / As of APRIL 30, 2013


Pour le moment, j'ai tenté d'apdapter une simple macro et avec le format de cellule, j'arrive à obtenir " 30 avril 2013". Le format de cellule ne me permet pas de convertir en anglais car à la limite, j'aurais pu utiliser la macro dans 2 cases différentes avec un format français et l'autre anglais.

En p.j. mon fichier.

N'hésitez pas à me proposer des solutions, même si elles ne sont pas exactes à ce que je recherche!

Bonne journée,
Genevieve

 

[Pierrot93]

Re : Mise a jour date bilingue ( francais ET anglais)

Bonjour Geneviève

peut être avec ceci :

With ActiveCell
    .NumberFormat = "[$-1009]mmmm d, yyyy;@"
    .Value = Date
End With

bon après midi
@+

 

[Misange]

Re : Mise a jour date bilingue ( francais ET anglais)

Bonjour Geneviève et Pierrot

en compément de la réponse de Pierrot les explications (et la macro aussi) d'Alain Vallon :
Ce lien n'existe plus

 

[Pierrot93]

Re : Mise a jour date bilingue ( francais ET anglais)

Re,

une autre compréhension :

With ActiveCell
    .NumberFormat = "[$-1009]mmmm d, yyyy;@"
    .Value = Date
    .Value = "Au " & UCase(Format(Date, "d mmmm yyyy")) & " / As of " & UCase(.Text)
End With

Edition : bonjour Bernard

 

[Misange]

Re : Mise a jour date bilingue ( francais ET anglais)

Edition : bonjour Bernard

🙂 tiens une transexuelle ?

 

[Gen Rose]

Re : Mise a jour date bilingue ( francais ET anglais)

Bonjour Pierrot
Misange 🙂
Le forum, ...et bonjour Bernard, qui et où soit-il? 😛

Absolument parfaitement adaptée à mon cas Pierrot(solution en #4)!
Merci beaucoup 😱

Je ne sais pas si j'ai bien inséré, mais ça fonctionne:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ActiveSheet
[A1] = Now
End With
With ActiveCell
    .NumberFormat = "[$-1009]mmmm d, yyyy;@"
    .Value = Date
    .Value = "Au " & UCase(Format(Date, "d mmmm yyyy")) & " / As of " & UCase(.Text)
End With
End Sub

Et merci Misange pour le lien! Je copie la solution du lien car j'ai remarqué, avec de vieux fils, que les liens souvent ne menaient plus nul part donc pour tous:

Private sub Worksheet_Change(ByVal zz As Range)
 If Intersect(zz, [A1:A10]) Is Nothing Then exit sub
 Application.EnableEvents = False
   zz = DateSerial(Year(zz), Month(zz), Day(zz))
 Application.EnableEvents = True
 end sub

 

[Pierrot93]

Re : Mise a jour date bilingue ( francais ET anglais)

Re,

Aarf désolé Misange🙂.... bonjour à toi🙂 voila ce que c'est dêtre sur plusieurs fils....

 

[Misange]

Re : Mise a jour date bilingue ( francais ET anglais)

Et merci Misange pour le lien! Je copie la solution du lien car j'ai remarqué, avec de vieux fils, que les liens souvent ne menaient plus nul part donc pour tous:

Private sub Worksheet_Change(ByVal zz As Range)
 If Intersect(zz, [A1:A10]) Is Nothing Then exit sub
 Application.EnableEvents = False
   zz = DateSerial(Year(zz), Month(zz), Day(zz))
 Application.EnableEvents = True
 end sub

Rassure toi les plus anciennes pages d'excelabo ont déjà plus de 12 ans et je les conserve précieusement 🙂 elles ne vont pas disparaître comme ça (même si en ce moment j'efface les doublons et je regroupe pour diminuer le nombre de pages, bref je fais du ménage)

 

[Gen Rose]

Re : [RÉSOLU]: Mise a jour date bilingue ( francais ET anglais)

Excelabo...tu en fais parti? Wow 🙂 Félicitations pour ce super site, je m'y réfère souvent mais pas assez, il faut croire! 😉
Longue vie à Excelabo!!!

Encore merci 😱

 

[Misange]

Re : [RÉSOLU]: Mise a jour date bilingue ( francais ET anglais)

Excelabo...tu en fais parti? Wow 🙂 Félicitations pour ce super site, je m'y réfère souvent mais pas assez, il faut croire! 😉
Longue vie à Excelabo!!!

Encore merci 😱

Merci c'est gentil 😉 Excelabo c'est le site que je développe depuis 12 ans. Certains me confient des classeurs, d'autres m'ont autorisés à citer leurs interventions sur les forums, le reste (l'essentiel depuis quelques années) c'est moi qui le rédige.