Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion Gen Rose
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Gen Rose

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

Dernière modification par un modérateur:
Re : Mise a jour date bilingue ( francais ET anglais)

Bonjour Geneviève

peut être avec ceci :
Code:
With ActiveCell
    .NumberFormat = "[$-1009]mmmm d, yyyy;@"
    .Value = Date
End With

bon après midi
@+
 
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
 
Re : Mise a jour date bilingue ( francais ET anglais)

Re,

une autre compréhension :
Code:
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
 
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:
Code:
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:
Code:
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
 
Re : Mise a jour date bilingue ( francais ET anglais)


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)
 
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 😱
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
Réponses
5
Affichages
2 K
EDI9366
E
J
Réponses
2
Affichages
2 K
journeydo
J
R
Réponses
5
Affichages
2 K
R
R
Réponses
17
Affichages
5 K
R
D
Réponses
2
Affichages
5 K
devileyes
D
A
Réponses
7
Affichages
6 K
A
P
Réponses
1
Affichages
2 K
sousou
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…