cs_jperre
Messages postés268Date d'inscriptionlundi 9 janvier 2006StatutMembreDernière intervention19 janvier 20172 11 déc. 2006 à 13:57
Le problème doit venir de l'instruction Input. J'aurais écrit :
Sub Convertion_Omega(AdresseFichier)
'Text1.MultiLine = 1
Open AdresseFichier For Input As #1
Open "C:\DumpOmega.txt" For Output As #2
Do
Line Input #1, a$
Print #2, RTrim(a$)
Loop Until EOF(1)
Close #1, #2
End Sub