Ah, voilà l'erreur
Mais, j'aimerai passer à autre chose,
bref, j'ai essayé autre méthode est fonction bien, avec la macro ci-dessous
J'aimerai juste savoir si vous avez une solution car lors du traitement macro, si la macro ne trouve pas (Par exemple X1 dans les données) cela me donne une erreur
Y a t-il un moyen de dire à la macro de passer à l'étape suivante si erreur et de terminer le traitement sans erreur.
Merci
-------------------------------------------------------------
Sub TESTLANCEMENT()
suppfeuilles
Range("A1").CurrentRegion.Offset(2, 0).ClearContents
Site = Range("F1").Value
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Site, False
.send
donnee = .responsetext
End With
table = Split(donnee, "Base"":")
For i = 1 To UBound(table )
With ActiveSheet
.Cells(i + 2, 1).Value = Split(table (i), ",")(0)
.Cells(i + 2, 2).Value = Split(Split(table (i), "X1"":")(1), ",")(0) '
Laisser vide et Passer à X2 si erreur
.Cells(i + 2, 2).Value = Split(Split(table (i), "X2"":")(1), ",")(0) '
Laisser vide et Passer à X3 si erreur
.Cells(i + 2, 3).Value = Split(Split(table (i), "X3"":")(1), ",")(0) '
Laisser vide et Passer à X4 si erreur
.Cells(i + 2, 4).Value = Split(Split(table (i), "X4"":")(1), ",")(0) '
Laisser vide et Passer à X5 si erreur
.Cells(i + 2, 6).Value = Split(Split(table (i), "X5"":")(1), ",")(0) '
Laisser vide et Passer à X6 si erreur
.Cells(i + 2, 5).Value = Split(Split(table (i), "X6"":")(1), ",")(0) '
Laisser vide et Passer à X7 si erreur
.Cells(i + 2, 8).Value = Split(Split(table (i), "X7"":")(1), ",")(0) '
Laisser vide et Passer à X8 si erreur
.Cells(i + 2, 6).Value = Split(Split(table (i), "X8"":")(1), ",")(0) '
Laisser vide et Passer à X8 si erreur
End With
Next
End Sub
---------------------------------------------------------------------