Boucle On Error GoTo

adri1l

1 Décembre 2007 13:24:02

Bonjour tout le monde!

Ca fait un moment que je n'étais pas venu sur le forum!
Est ce que vous pourriez m'aider concernant la gestion d'erreur avec "On Error GoTo"
Voila, j'importe des pages web sous excel pour aller chercher des infos, mais avec le temps (nombre de pages importées durant la macro) l'importation devient incomplete. J'utilise l'application suivante pour importer mes pages web:

With ActiveSheet.QueryTables.Add(Connection:=url_page, Destination:=Sheets("YAHOO").Range("A1"))

..

..

Comme solution temporaire je dis a la macro de reimporter la page web si elle est incomplete sous excel.
Mais j'ai decouvert qu'en utilisant "On Error GoTo" le renvoi ne s'effectuait qu'une seule fois.

On Error GoTo erreur

 
erreur:

toto = InputBox(ksbvflo)

Sheets(1).Cells(1, 1) = toto

Sheets(1).Cells(2, 1) = toto / 2

'si toto n'est pas un nombre, erreur est relancé

Moi je voudrais que erreur soit relancé autant de fois qu il est necessaire, jusqu à ce qu il n'y ait plus de probleme.

En meme temps si vous connaissez une solution pour eviter que l'importation soit incomplete... je suis toute ouie!

Merci beaucoup!!

Adri

Autres pages sur : boucle error goto

| Etre averti des réponses
| Alerter

Freeman23

3 Décembre 2007 09:59:43

Si je comprends bien l'import provoque une erreur.
Alors Tu devrais plutot faire un truc du genre :

import:

On Error GoTo erreur

 
With ActiveSheet.QueryTables.Add(Connection:=url_page, Destination:=Sheets("YAHOO" ).Range("A1" ))

 
 
erreur:

toto = InputBox(ksbvflo)

Sheets(1).Cells(1, 1) = toto

Sheets(1).Cells(2, 1) = toto / 2

'si toto n'est pas un nombre, erreur est relancé

resume import

sortie:

  exit sub

C'est pas forcément très propre mais ca te reverra à ta ligne tout seule, et systématiquement il me semble

| Alerter

adri1l

3 Décembre 2007 13:42:42

Mmmm... non desolé ce code ne fonctionne pas comme je le souhaite

import:

    On Error GoTo erreur

 
erreur:

   toto = InputBox(ksbvflo)

   tata = toto / 2

 
  Resume import

sortie:

  Exit Sub

En fait ce que j'essaye de dire c reviens au debut tant qu'il y a une erreur. Une sorte de boucle sur l'erreur tant qu'elle serait presente.

On Error GoTo erreur

 
erreur:

   toto = InputBox(ksbvflo)

   tata = toto / 2

'on revient a erreur tant que toto/2 donne une erreur  

 
...

...  'suite du code

Dans l'exemple ci dessus on sortirait de cette boucle une fois que toto est un nombre.

Je cherche à rendre ce processus plus general pour ensuite l'appliquer à de l'import de données.

Merci beaucoup

| Alerter

zeb

4 Décembre 2007 11:16:36

Soluce crade (j'en ai honte) :

Sub solucecradejenaihonte()
    On Error GoTo erreur
 
revenir:
    toto = InputBox(ksbvflo)
    tata = toto / 2
    On Error GoTo 0
 
    ' // suite du code
Exit Sub
erreur:
    GoTo revenir
End Sub

Soluce propre :

Sub solucepropre()
    Dim toto As String
 
    Do
    	toto = InputBox(ksbvflo)
    Loop While Not IsNumeric(toto)
 
    ' // suite du code
End Sub

EDIT: Ose me dire que tu choisis la première et je t'envoie chez les télétubbies pour un mois entier :fou:

| Alerter

adri1l

5 Décembre 2007 14:34:56

LOL Merci Zeb !

La deuxieme solution m'a permis de trouver la solution à mon probleme:

Sub solucepropre()

 
        Dim toto As Range

 
        Do

            Set toto = Sheets(1).Cells.Find("toto", lookat:=xlWhole)

        Loop While toto Is Nothing

 
               toto.Select

        ' // suite du code

    End Sub

Mais pour revenir au probleme plus general de la boucle avec erreur,
la tu fais verifier que toto est bien un nombre car on était dans un cas simple,
mais si on ne veut pas definir les caractériques de cette variable,
est ce qu'il est possible de refaire la manip tant que cette variable est incorrecte?

| Alerter

zeb

6 Décembre 2007 10:21:42

Ben oui, on peut.

>>variable est incorrecte
On boucle tant que TA condition n'est pas respectée. Une condition ça peut être complexe.

| Alerter