Continuer avec l'url suivante si erreur 404 ?

Bonjour,

J'aimerai que ma macro continue lorsque l'adresse web demandée n'est pas
valide.
ex: http://www.blablabla.com/zzz001.htm est en erreur 404, la macro continue
avec l'url suivante
http://www.blablabla.com/zzz002.htm
...etc
Actuellement Excel telecharge la premiere url et si elle est mauvaise, il
s'arrete !

---
Sheets("download_zone").Select
Range("A1").Select

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.blablabla.com/" & Sheets("liste").Range("A1") &
".htm", Destination:=Range("A1"))
.Name = "bla"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With
---

Merci d'avance ;)
Fred

Bonjour. On Error Resume Next Cordialement. Daniel

Bonsoir,
Merci beaucoup. ;)
Si je comprends bien cela supprime toutes les erreurs. Serait-il possible de
copier "Sheets("liste").Range("A1") " dans un onglet erreur avant de
continuer?

par ex du genre:
si l'url "URL;http://www.blablabla.com/" & Sheets("liste").Range("A1") &
".htm", Destination:=Range("A1"))" est en erreur , alors copier la ligne
"Sheets("liste").Range("A1") " dans un onglet Sheets("erreur").Range("B1")
puis supprimer la ligne Sheets("liste").Range("A1") et recommencer (avec le
nouvel A1)

Merci d'avance ;)

Bonjour. On Error Resume Next Cordialement. Daniel

If Err.Number <> 0 Then Err.Clear Sheets("Erreur").Range("A1") =
Sheets("liste").Range("A1") End If