Continuer avec l'url suivante si erreur 404 ?

Le
Fred
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17765461
Bonjour.
On Error Resume Next
Cordialement.
Daniel

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


Fred
Le #17767291
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


Daniel.C
Le #17767511
Sheets("download_zone").Select
Range("A1").Select

On Error Resume Next
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
If Err.Number <> 0 Then
Err.Clear
Sheets("Erreur").Range("A1") = Sheets("liste").Range("A1")
End If

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




Fred
Le #17767841
Bonsoir Daniel,

Je n'ai qu'un seul mot à dire : Fantastique ! ;)

Merci beaucoup et bonne soirée, ;)
Fred

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


Publicité
Poster une réponse
Anonyme