Comprendre ligne de code d'une VBA
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:
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