Re bonjour à tous
j'ai trouvé ceci pour enregistrer en txt
il reste la demende de validation de suppression de feuilles à supprimer
Bon courage et @+
Sub Macro2()
Workbooks.Add
Range("A1") = Workbooks("test1.xls").Sheets("Feuil1").Range("A1")
For ctr = Sheets.Count To 1 Step -1
If Sheets(ctr).Name <> ActiveSheet.Name Then
Sheets(ctr).Delete
End If
Next
ActiveWorkbook.SaveAs Filename:="C:\Mes documents\essais.txt", FileFormat _
:=xlText, CreateBackup:=False
End Sub