bonsoir Bebere et Yan L
Désolée pour le rattage d'envoi de fichier...
voisi mon code:
Sub start_QuandClic()
Open 'C:\\Mes documents\\test\\riri.data' For Input As #1
Open 'C:\\Mes documents\\test\\riri_A.data' For Output As #2
Open 'C:\\Mes documents\\test\\riri_B.data' For Output As #3
Open 'C:\\Mes documents\\test\\riri_C.data' For Output As #4
Dim var As String
For i = 1 To 5
var = Input(11, #1)
Print #2, var
var = Input(1, #1)
var = Input(11, #1)
Print #3, var
var = Input(1, #1)
var = Input(11, #1)
Print #4, var
var = Input(2, #1)
Next i
Close #1
Close #2
Close #3
Close #4
MsgBox 'Terminé'
End Sub
ci-joint mon fichier d'exemple. Comme vous verrez, si on enlève les signes '-' la macro tourne parce qu'on a le toujours même nombre de caractères, mais sinon ça décale tout dans les fichiers de sortie.
merci de votre aide
@+ zab. [file name=riri.zip size=186]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/riri.zip[/file]