re-,
Et voilà le résultat en PJ,
pour ce qui est du code ... je suis tellement génial ;oP
qu'il en est tellement beau, tellement bien pensé que j'ai décidé de le mettre dans le domaine public (avant que quelqu'un d'autre ne publie mieux)
)))
Lol
Ya rien d'exceptionnel dans ce que j'ai écrit, donc voici le code, et de toutes manières ce forum est destiné à une mutualisation des connaissances.
D'ailleurs, les différentes corrections ou commentaires des uns ou des autres feront progresser tout le monde (et moi en premier)
Function DLE(datum, Optional Lang As String)
'Traduction de dates en plusieurs langues
'Par Raimond Schmidt - 02/2006
'Date : date à traduire au format "jj mm aaa"
'Lang : langue de traduction fr=Français, en=Anglais, de=Allemand,
'es=Espagnol, nl=Néerlandais
'Langue par défaut : Anglais
Application.Volatile
If Lang = "" Then Lang = "nl"
Select Case LCase(Lang)
Case "fr"
Jour = Array("Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi")
Mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
Case "en"
Jour = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
Mois = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
Case "de"
Jour = Array("Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag")
Mois = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")
Case "es"
Jour = Array("Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sabado")
Mois = Array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
Case "nl"
Jour = Array("Zondag", "Maandag", "Dinsdag", "Woensdag", "Donderdag", "Vrijdag", "Zaterdag")
Mois = Array("Januari", "Februari", "Maart", "April", "Mei", "Juni", "Juli", "Augustus", "September", "Oktober", "November", "December")
End Select
datum = CDate(Left(datum, 2) & "/" & Mid(datum, 4, 2) & "/" & Right(datum, 2))
DLE = Jour(Weekday(datum) - 1) & " " & Day(datum) & Mois(Month(datum) - 1) & " " & Year(datum)
End Function
Bonne continuation
Rai