Salut et merci
En fait j'ai une routine qui ouvre tous les fichiers d'un répertoire, et quand le dernier caractère est par exemple un A, ca marche, cad que les fichiers en entrée sont recopiés en sortie tels quels en changeant seulement le A ; par contre quand c'est le caractère 026 (substitute), la routine recopie seuelement le premier fichier, mais vide.
Avec ton code c'est la même chose.
Plus précisément il s'agit de fichiers contenant des nombre dont le dernier caractère est ce caractère de contôle que je voudrais effacer.
While sInputFilePath <> ""
fnInput = FreeFile
Open inputFolder & "\" & sInputFilePath For Input As fnInput
On Error Resume Next
sInputTextEntier = Input(LOF(fnInput), fnInput)
source() = Split(sInputTextEntier, " ")
For i = 1 To UBound(source)
j = 1
For h = 1 To Len(source(i))
c = Mid$(source(i), h, 1)
If c = Chr(26) Then
source(i) = Replace(source(i), Chr(26), " ")
h = h + 1
j = h
End If
Next h
Print #fnoutput, source(i)
Next i
Close #fnInput
Close #fnoutput
sInputFilePath = Dir()
Wend