Ouvrir fichiers ".dat" avec noms inconnus

sub Modif()

Chemin = "..."   'indiquer le chemin complet
'Premier fichier
Fichier = Dir(Chemin & "*.dat")
Do While Fichier <> ""
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.EnableEvents = False
    Workbooks.Open FileName:=Chemin & Fichier
    NomEnregistrement = Left(Fichier, Len(Fichier) - 4) & ".xls"
    Workbook(Fichier).SaveAs _
        FileName:=NomEnregistrement, _
        FileFormat:=xlExcel8
    Fichier = Dir
Loop

Application.DisplayAlerts = True
Application.EnableEvents = True
Application.EnableEvents = True

End Sub

Sub FichiersDat()
Dim chemin$, fichier$
chemin = "C:\Dossier_test\" 'chemin à adapter
fichier = Dir(chemin & "*.dat") '1er fichier du dossier
Application.ScreenUpdating = False
Application.DisplayAlerts = False
While fichier <> ""
  With Workbooks.Open(chemin & fichier)
    .SaveAs chemin & Left(fichier, Len(fichier) - 4), xlNormal 'extension supprimée
    .Close 'ferme le fichier
  End With
  fichier = Dir 'fichier suivant du dossier
Wend
End Sub