Discussion :

[patricktoulon]

c'est bon cette fois ci c'est au point
je formatais la valeur puis ensuite la cellule ca faisait pas bon menage

voila moins de 15 lignes et moins d'un quart de secondes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test4()
    Columns("B:B").NumberFormat = "dd/mm/yyyy hh:mm:ss"
   Dim ReQ, URL, coupe, compte, lig
    URL = "http://aguila-bidart.fr/demo/ISSY/webservice.php?ndDay=31"
    Set ReQ = CreateObject("microsoft.xmlhttp")
    ReQ.Open "POST", URL, False:    ReQ.send
    coupe = Split(ReQ.responsetext, "Mesure"":" & Chr(34))
    lig = 1
    For i = 1 To UBound(coupe)
        compte = compte + 1
        donnée = Split(coupe(i), Chr(34))(0)
       Cells(lig, compte) = IIf(compte < 2, "%" & donnée, (donnée / 86400) + CDbl(CDate("1/1/1970") + (1 / 24)))
        If compte = 2 Then lig = lig + 1: compte = 0
     Next
End Sub

[dodinouche]

Merci beaucoup à vous deux !

Vous êtes géniaux

[patricktoulon]

Merci a PMO pour sa piqure de rappel sur l'addition de date par CDbl

douloureuse la piqure mais eficace