J'essai d'ouvrir des fichiers de plus de 2Mo mégas de texte puis de cherché une chaine spécifique à l'intérieur.
MAis le traitement et vraimment trop long...
Je n'est pas de fichier texte de plus de 100 Ko donc j'ignore si ca va fonctionner correctement mais tu peut essayer ceci :
Private Sub Command1_Click()
Dim MonFichier As String
Dim Chaine As String
Dim StringTemp As String
Dim I as Long
Dim lFile as Long
On Error Goto Erreur
MonFichier = "C:Mon fichier texte.txt"
Chaine = "Bonjour ca va bien"
lFile = FreeFile
Open MonFichier For Input As #lFile
StringTemp = Input(Lof(lFile), lFile)
Close #lFile
I = InStr(1, StringTemp, Chaine)
If I <> 0 Then
Me.Caption = "La chaine à été trouver : " & mid$(StringTemp, i, Len(Chaine))
Else
Me.Caption = "La chaine n'à pas été trouver"
End If
StringTemp = vbNullString
Exit Sub
Erreur:
Close
' Traitement de l'erreur
Err.Clear
End Sub