Bonjour à tous,

Je vous contact pour que vous m'aidiez à comprendre les lignes de code suivante tiré d'un code VBA. Je voudrais en quelque sorte avoir des commentaire par ligne pour comprendre qu'elle est l'action que cette ligne réalise.

Voila le code :

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
16
17
18
19
Sub test4()
    Columns("B:B").NumberFormat = "dd/mm/yyyy hh:mm:ss"
   '--- Déclaration des données ---
   Dim ReQ, URL, coupe, compte, lig
   '--- Récupération de URL ou sont situés les données ---
    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
    '--- Coupe le texte grâce à "split" pour avoir seulement les infos qui nous intéressent  ---
        donnée = Split(coupe(i), Chr(34))(0)
    '--- Change la date unix en date normal dd/mm/yyyy hh:mm:ss ---
       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

Je vous remercie par avance pour votre aide.

Cordialement,
Dodinouche