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

D

D.D.

XLDnaute Impliqué

• 4 Septembre 2019

• #2

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....

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 4 Septembre 2019

• #3

Bonjour,

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

bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Septembre 2019

• #4

Bonjour maintroto, D.D, Roblochon,

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

VB:

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+

 

Pièces jointes

• Conversion(1).xlsm

  15.8 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Septembre 2019

• #5

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

VB:

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

 

Pièces jointes

• Conversion(2).xlsm

  16.2 KB · Affichages: 7

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 4 Septembre 2019

• #6

Bonsour®

maintroto à dit:

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

Cliquez pour agrandir...

😕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 !!!

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 4 Septembre 2019

• #7

Modeste geedee à dit:

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

Cliquez pour agrandir...

je suis bien d'accord avec toi 🙂

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 4 Septembre 2019

• #8

Bonjour chacune, bonjour chacun,

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

Cordialement

 

Dernière édition: 4 Septembre 2019

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 4 Septembre 2019

• #9

Roblochon à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M

maintroto

Guest

• 4 Septembre 2019

• #10

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

 

Vote positif 0 Vote négatif