Bonjour,
Je débute en vba et je souhaite faire l'opération suivante: lire 500 fichiers texte et compter le nombre de fois où certaines chaînes de caractère apparaîssent dans ces fichiers.
J'ai écris ce qui suit:
For j = 3 To 466 (compteur de fichiers)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fFile = fspenTextFile(Range("B" & j).Value) 'adresses des fichiers
For i = 1 To 20 (compteur de lignes)
ligne(i) = fFile.ReadLine
If i > 10 Then
b = b + Count(ligne(i), ", Alarme ," & Range("E" & 1).Value) 'exemple compter les" , Alarme , machine X" la fonction count est définie pour des chaînes de caractères et je ne peux pas l'appliquer directement à fFile.
End If
Next
Range("U" & 1).Value = b
fFile.Close
Next
Le problème de parcourir ligne par ligne est que je ne peux le faire que pour une vingtaine de ligne après ce n'est pas possible. Mes informations sont de plus de la ligne 30 à la ligne 80 du fichier.
Avez vous une autre solution à ce problème? Je vous remercie d'avance
Je débute en vba et je souhaite faire l'opération suivante: lire 500 fichiers texte et compter le nombre de fois où certaines chaînes de caractère apparaîssent dans ces fichiers.
J'ai écris ce qui suit:
For j = 3 To 466 (compteur de fichiers)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fFile = fspenTextFile(Range("B" & j).Value) 'adresses des fichiers
For i = 1 To 20 (compteur de lignes)
ligne(i) = fFile.ReadLine
If i > 10 Then
b = b + Count(ligne(i), ", Alarme ," & Range("E" & 1).Value) 'exemple compter les" , Alarme , machine X" la fonction count est définie pour des chaînes de caractères et je ne peux pas l'appliquer directement à fFile.
End If
Next
Range("U" & 1).Value = b
fFile.Close
Next
Le problème de parcourir ligne par ligne est que je ne peux le faire que pour une vingtaine de ligne après ce n'est pas possible. Mes informations sont de plus de la ligne 30 à la ligne 80 du fichier.
Avez vous une autre solution à ce problème? Je vous remercie d'avance