Bonjour
Et on pourrait savoir pourquoi transformer un fichier Texte en Fichier excel : non ouvert à l'utilisation de postes qui ne disposent pas d'un accès à Office.
Il est bien vu de fournir un fichier d'entrée anonymisé
Sinon l'import des fichiers texte et CSV dans Excel, mieux que Fichier/ Ouvrir je suggère Données / Obtenir des données/ A partir d'un fichier : et se laisser guider ... comme dit ce vénérable Eric
Sinon en traitement VBA
Sub vba_open_txt_and_save_xls()
Dim strFile As String
strFile = Application.GetOpenFilename()
Workbooks.Open (strFile)
ActiveWorkbook.SaveAs Filename:=Mid(strFile,1, InstrRev(strFile,".")) + "xlsx", FileFormat:=51
End Sub