Bonjour à tous,

Celà va faire un moment que je n'ai pas programmé... J'utilise un simple script .vbs pour agir sur une application au travail afin d'automatiser certaines tâches.

Je suis actuellement bloqué, je lance une exécution sur l'application qui me retourne un résultat sous forme de lignes dans un interface graphique.
Je cherche à trouver le nombre de lignes que l'application me retourne, la solution que j'envisage et de parcourir chaque ligne jusqu'à ce que le script produits une erreur afin d'établir un compteur et de récupérer la valeur de celui-ci au moment de l'erreur.

Voici un exemple très simplifié qui représente bien la chose :
- j'aimerais réussir à sortir de la boucle for au moment de l'erreur et connaître le nombre d'indices de mon tableau.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim tableau(3) ' l'application m'a retourné 4 lignes
 
For i = 0 to 19 ' je cherche à connaître le nombre de ligne
    MsgBox tableau(i)
Next
J'ai essayé ça, mais ça n'a pas l'air de fonctionner et de toute façon je viens de me rendre compte que je passe dans le If à chaque erreur donc la variable Compteur n'aura pas la bonne valeur... :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim tableau(3)
Dim compteur
 
For i = 0 to 19
    MsgBox tableau(i)
    On Error Resume Next
    If Err.Number <> 0 Then
         Compteur = i - 1
    End If
Next
 
MsgBox ("il y a "& Compteur &" lignes")
Merci d'avance