En fait c'est un code de sortie du script interrogeable en procédure
batch DOS via un
IF ERRORLEVEL
ou encore via $LASTEXITCODE en PowerShell par exemple …
J'ai laissé ces codes de sortie dans la version finale alors que j'aurais pu très bien les retirer.
Chaque script reçoit en paramètres l'adresse du lien hypertexte et l'adresse d'une cellule
pour y écrire directement le résultat dans la feuille (script généré dans l'exemple de parisdauphine) :
1
2
3
4
5
6
7
8
9
| On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
If Err.Number Then WScript.Quit 1
.open "POST",WScript.Arguments(0),False
If Err.Number Then WScript.Quit 2
.send
If .status=200 Then SP=Split(.responseText,"End of placement</td><td>"): If UBound(SP)>0 Then T=Split(SP(1),"<")(0)
End With
GetObject(,"Excel.Application").Workbooks("Let It Bee v2 parisdauphine .xlsm").Worksheets("CbondS").Range(WScript.Arguments(1)).Value=T |
Donc si une cellule résultat reste vide, soit son script était en erreur sur le lien hypertexte
(message final « Bee missing in Action ! »), soit le statut de la requête était différent de 200 …
Il serait possible aussi au lieu de sortir par WScript.Quit d'alimenter la variable T
afin d'avoir un message dans la cellule résultat :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
If Err.Number Then
T = "Erreur 1 !"
Else
.open "POST", WScript.Arguments(0), False
If Err.Number Then
T = "Erreur 2 !"
Else
.send
If .status = 200 Then
SP = Split(.responseText, "End of placement</td><td>")
If UBound(SP) > 0 Then T = Split(SP(1), "<")(0) Else T = "Erreur 3 !"
Else
T = .status & " : " & .statusText
End If
End If
End If
End With
GetObject(, "Excel.Application").Workbooks("Let It Bee v2 parisdauphine .xlsm").Worksheets("CbondS").Range(WScript.Arguments(1)).Value = T |
Dans ce cas, plus besoin de déclencher une procédure d'alerte via Application.OnTime …
re
Répondre avec citation
: ça peut servir aux autres 
Partager