Bonjour,

Suite à mon poste précédemment, ou j'ai réussi à résoudre mon problème tout seul, je suis en train de bosser actuellement sur une optimisation de celui ci.
>>Sujet Précédent<<.

Il me faut pour ça absolument relever le numéro de la ligne à chaque fois que j’appelle ma fonction (StartIE) pour pouvoir calculer en fonction du numéro de la ligne relevé, le pourcentage automatique de ma barre de progression (je devrais pouvoir me débrouiller pour cette étape).


Donc un exemple tout con.

Un script d'ouverture de session fait 1800 lignes.
Je veux donc qu'a la première ligne, mon % démarre à 0%, logique.
A la 1800 ème ligne, il sera donc à 100%.

Pour ça il faut donc que je relève régulièrement la valeur de la ligne pour en déduire un pourcentage d'avancement !
Et c'est sur cette étape que je bloque.

Tout ce que j'ai réussi à faire de moi même est ce début de code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim objFSO, strTextFile, strRead, arrline, intFulllines, intSublines
CONST ForReading = 1
 
strTextFile = "???.vbs"
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
strRead = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll
 
arrline = Split(strRead,vbCrLf)
 
intFulllines = UBound(arrline) +1
intSublines = ..........
 
Set objFSO = Nothing
Merci pour ceux qui prendrons du temps sur mon problème

Je posterai des MAJ si je trouve quelque chose..
Bonne journée