Discussion :

[hanquezc]

Bonjour,

J'ai pas mal cherché mais je n'ai pas trouvé tout seul de réponse à mon problème.

J'ai une variable texte contenant la valeur "03FEB2019" (par exemple) et représentant donc une date. Je souhaite convertir cette variable en date, et en utilisant/forcant la localisation "anglaise" (mon pc et mon excel sont en français, je ne veux pas les modifier).

Savez vous comment faire?

Merci!

[mercatog]

Bonjour

Via une fonction personnelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function Text2Date(ByVal T As String) As Long
Dim Months
 
Months = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
T = Left(T, 2) & "/" & WorksheetFunction.Match(Mid(T, 3, 3), Months, 0) & "/" & Right(T, 4)
Text2Date = DateValue(T)
End Function

[hanquezc]

You are a god ! Merci ca marche parfaitement !