Problème : Split code source vide, erreur et doublon

Bonjour à tous !

J'utilise le code en dessous. Ça marche bien jusqu'à ce que ça tombe sur une url où la référence que je cherche n'existe pas. Il y a une erreur d’exécution "9".

J'ai mis le "On Error Resume Next" mais au lieu de laisser la case vide ça me copie la référence de la case précédente, et donc c'est pas très pratique. Où est mon erreur ? Je bloque et je suis sur que c'est pas grand chose. :weird:


Merci pour vos lumières ! 8-)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

On Error Resume Next   Dim C As Range   For Each C In ThisWorkbook.Worksheets("TEST").Range("B2:B10")   donnee = C.Value URL = "http://www.url.com/" & donnee code = GetCodeSource(URL) reference = Split(Split(code, "<form id=")(1), """")(0)   C.Offset(0, 1) = reference   Next C

---

Bonjour, je pense qu'il faudrait rajouter une condition avant le Offset du genre "If Not reference Is Nothing Then" ou alors "If IsError(reference) = False Then" ça dépend de ce que contient reference.

Mis à part ça tu devrait vraiment coder plus proprement : variables non déclarées, Select Case là où un simple If aurait suffit, pas de On Error GoTo 0 après que la ligne posant problème soit passée, accents dans des noms de variables ! 8O:weird::aie:

je suis vraiment débutant et c'est déjà un miracle pour moi d'avoir fait cela :aie:

j'ai enlevé les accents, la référence et la donnée sont des chiffres, j'ai recoder en enlevant des trucs, ça marche mais ça change pas grand chose, il y a toujours la répétition, mais c'est clair que c'est plus propre :mouarf:

j'ai essayé tes codes sans résultat, je ne sais peut être pas vraiment ou les mettre

j'aimerai mettre un "X" quand la référence est manquante

dis moi si c'est juste

Merci :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If IsError(reference) = False Then   C.Offset(0, 1) = "X"   Else   C.Offset(0, 1) = reference   End if

---

Essaye plutôt comme ça :

Code:

---

1 2 3 4 5

If Not reference Is Nothing Then C.Offset(0, 1) = reference Else C.Offset(0, 1) = "X" End if

---

Sinon est-ce que quand tu peux me dire ce que contient exactement la reference quand l'erreur se produit ? (tu passes la souris sur le mot reference dans le débogueur)

Edit : Au fait, quelle est la ligne qui bug (surligné en jaune) ?

Alors, quand je ne met pas On error resume next, ça me marque

"erreur d’exécution 9 : l'indice n'appartient pas à la sélection"

le débogage me surligne en jaune la ligne split, la référence est celle enregistrée dans la ligne au dessus et donc quand je met On error resume next ça me fait un doublon, le split ne trouve pas la référence car il n'y en a tout simplement pas, mais elle peut apparaitre à tout moment. Apres pourquoi le split prend la référence précedente au lieu de rien mettre, c'est un grand mystère très embêtant.

En mettant ton code avec le "X" le doublon est toujours présent :calim2:

Merci encore 8-)

Peut être peut-on résoudre ce problème par une gestion d'erreur plus poussée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

On Error GoTo ErrorHandler '... '... reference = Split(Split(code, "<form id=")(1), """")(0)   C.Offset(0, 1) = reference   LigneSuivante: Next C Exit Sub ErrorHandler: C.Offset(0, 1) = "X" GoTo LigneSuivante End Sub

---

..oups

je suis d'accords avec letudiant68; le On Error Resume next n'est pas le remède miracle, c'est pas le sirop typhon; il se contente de te laisser gérer les erreur il fige les données de l'application à ce quelle étaient avant le bug.
enlève le on error et analyse le pourquoi du parc-que du comment. le on erreur doit gérer des exceptions pas ton manque d’analyse! en suite il est possible qu'il y aient des exception là tu devras les gérer ne laisses pas la main à vb pour les résoudre à ta place tu vas vers un comportement plus-qu'étrange si tu fais ça.

Bonjour, bonjour,

pas besoin de gestion d'erreur pour la fonction Split ‼

Affecter le Split à une variable puis si la valeur renvoyée par la fonction UBound (consulter son aide)
est supérieure à -1, alors la variable n'est pas vide …

Bonjour
je rejoint l'opinion de Marc

la gestion peu se faire sur le ubound(split,"......")

'donc

Code:

---

1 2 3 4 5 6

donnée=split("truc","machin")   'et ensuite   if ubound(donnée)>0 then msgbox donnée(1)' donne le premier de la liste si il y en a plusieurs

---

je constate que ma petite fonction getcodesource fait son chemin ca fait plaisir

attention a la méthode quand même (POST/GET).préférer autant que possible la méthode POST

car les fonction native "nocache"de cette librairie sont assez capricieuses

Bonjour bonjour

Je me suis enflammé un peu trop vite, la méthode de l'étudiant marche que dans quelques cas :aie:

Patrick, j'ai essayé ton code mais je ne comprends pas, tu split "donnée" alors que je le fait sur "référence"

Merci pour votre aide précieuse

De retour après plusieurs essais

En fait je pense qu'il me faudrait un code pour vider une mémoire quand on utilise getcodesource et le split afin que le doublon ne s'affiche pas

Vous avez une idée?

Merci

J'ai réussi en vidant la variable reference à la fin du processus avec

Code:

---

reference = empty

---