Sub Convertir()
Dim fich$
fich = ThisWorkbook.Path & "\Supplier_Paid_Invoice_History_290515"
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier a déjà été créé
With Workbooks.Open(fich & ".txt")
.SaveAs fich, IIf(Val(Application.Version) < 12, xlNormal, 51)
.Close
End With
End Sub