XL 2013 Convertir text du type Wed Sep 19 2018 12:34:19 GMT+0200 (GMT+02:00) en format date excel

[maintroto]

Bonjour ,
J'extrais le contenu d'une base donnée json en format excel, le souci est qu'il me transforme la date en format texte du type :Wed Sep 19 2018 12:34:19 GMT+0200 (GMT+02:00), existe t'il une méthode ou mieux une macro pour transformer ce texte en date exploitable par excel.
Merci de votre aide
Nico

 

[D.D.]

Bonjour;
Essaye:
=DATE(STXT(A1;CHERCHE(":";A1)-7;4);RECHERCHEH(STXT(A1;CHERCHE(" ";A1;1)+1;CHERCHE(" ";A1;CHERCHE(" ";A1;1)+1+1)-CHERCHE(" ";A1;1)-1);{"Jan"."Feb"."Mar"."Apr"."May"."Jun"."Jul"."Aug"."Sep"."Oct"."Nov"."Dec";1.2.3.4.5.6.7.8.9.10.11.12};2;0);STXT(A1;CHERCHE(" ";A1;CHERCHE(" ";A1;1)+2);CHERCHE(" ";A1;CHERCHE(" ";A1;CHERCHE(" ";A1;1)+2)+1)-CHERCHE(" ";A1;CHERCHE(" ";A1;1)*2)))

Pas super optimisé mais bon....

 

[Hasco]

Bonjour,

Peut-être qu'avec un exemple anonymisé du fichier json nous arriverions à quelque chose.

bonne journée

 

[job75]

Bonjour maintroto, D.D, Roblochon,

Voyez le fichier joint avec cette fonction VBA, à placer impérativement dans un module standard :

Function Conversion(t As String, jour%, mois%, an%, heure%)
Dim s, a
s = Split(t)
If UBound(s) < 4 Then Conversion = "": Exit Function
a = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
Conversion = DateSerial(s(an - 1), Application.Match(s(mois - 1), a, 0), s(jour - 1)) + TimeValue(s(heure - 1))
End Function

A+

 

[job75]

Fichier (2) si l'on veut ajouter ou soustraire les heures et minutes placées après GMT :

Function Conversion(t As String, jour%, mois%, an%, heure%)
Dim s, a, i%
s = Split(t)
If UBound(s) < 4 Then Conversion = "": Exit Function
a = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
Conversion = DateSerial(s(an - 1), Application.Match(s(mois - 1), a, 0), s(jour - 1)) + TimeValue(s(heure - 1))
i = InStr(t, "+")
If i Then Conversion = Conversion + Mid(t, i + 1, 2) / 24 + Mid(t, i + 3, 2) / 1440
i = InStr(t, "-")
If i Then Conversion = Conversion - Mid(t, i + 1, 2) / 24 - Mid(t, i + 3, 2) / 1440
End Function

 

[Modeste geedee]

Bonsour®

Bonjour ,
J'extrais le contenu d'une base donnée json en format excel, le souci est qu'il me transforme la date en format texte du type :Wed Sep 19 2018 12:34:19 GMT+0200 (GMT+02:00), existe t'il une méthode ou mieux une macro pour transformer ce texte en date exploitable par excel.
Merci de votre aide
Nico

le problème est certainement que l'extraction JSON en format excel est prévue pour un format US ...
il vaudrait mieux que tu nous communiques l'extrait json avant que EXCEL (FR) y fiche son grain de cells !!!

 

[D.D.]

il vaudrait mieux que tu nous communiques l'extrait json avant que EXCEL (FR) y fiche son grain de cells !!!

je suis bien d'accord avec toi

 

[Hasco]

Bonjour chacune, bonjour chacun,

N'est-ce pas ce que je demandais dès le post #3 ? De quoi convaincre @maintroto

Cordialement

 

[D.D.]

N'est-ce pas ce que je demandais dès le post #3 ?

Siiiiiii !!!!!!!!!
Donc je suis bien d'accord avec toi aussi

 

[maintroto]

merci a tous. cela marche parfaitement.
mais je vais travailler sur l'extraction du json également
Bonne journée