j'ai fait ça pour commencer qqchse mais ça m'enregistre que les fichiers impairs: fiche_abba_f1.txt fiche_abba_f3.txt etc....
Private Sub Commandbutton1_Click()
Dim L, i As Integer
Dim TheText As String, TheFile As String
Dim fso As Object 'FileSystemObject
Dim txt As Object 'TextStream
L = Sheets("BDD").Range("B65536").End(xlUp).Row '+ 1
i = 1
For i = 1 To L
i = i + 1
Sheets("fichier").Range("A1") = ici allez voir le zip c trop long...
With ThisWorkbook
TheFile = "fiche_" & Sheets("BDD").Range("Q1") & Sheets("BDD").Range("S1") & Sheets("BDD").Range("B" & i) & ".txt"
TheText = .Sheets("fichier").Range("A2")
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(TheFile, True)
txt.Write TheText
txt.Close
Set txt = Nothing
Set fso = Nothing
Next i
'End Sub
End Sub