Bonjour,

J'essais de lire un fichier texte avec cette méthode :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
 
Input_file = "c:\test.txt"
Open Input_file For Input As ifile 'input file nom du fichier
 
Do While Not EOF(ifile)
 
Line Input #1, Laligne
    varRech = "Produit"
    If InStr(1, Laligne, varRech) Then
    ValStart = InStr(1, Laligne, varRech) + Len(varRech)
    MsgBox Mid(Laligne, ValStart, 9)
    end if
Loop
 
Close #1
Ca fonctionne bien excepté lorsque le contenu du fichier présente des caractères spéciaux (ex : ÞÒ|ûã@ ÞÒ|ûã@)

Le code s'arrète...il me lis simplement la moitié de la première ligne mais pas le reste....je précise que le fichier à l'origine n'est pas un fichier txt.

Quelqu'un saurait-il pourquoi et comment y remédier ?

Merci