VB Excel ouvrir fichier nom incomplet

Option Explicit
 
' option à activer dans VBA menu Outils | Références : Cocher Microsoft Scripting Runtime (A NE PAS OUBLIER)
 
Const DossierFichiers As String = "C:\" 'le chemin de ton répertoire
Sub Ouvrir_fichier()
    ListeFichiersDans DossierFichiers
End Sub
 
Private Sub ListeFichiersDans(ByVal NomDossier As String)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File
Dim x As Long

 
    Set FSO = New Scripting.FileSystemObject
    Set DossierSource = FSO.GetFolder(NomDossier)
           
    x = 0
    For Each Fichier In DossierSource.Files
            x = x + 1
            Workbooks.Open Filename:=Fichier
            
    Next Fichier
         
    MsgBox Fichier
     
    Set Fichier = Nothing
    Set DossierSource = Nothing
    Set FSO = Nothing
End Sub

Sub TestDir()

Dim R As String
    R = ThisWorkbook.FullName
    R = Left(R, 8) & "*"
    MsgBox R 'le nom tronquer du classeur et chemin.
    MsgBox Dir(R) 'le nom complet du classeur
End Sub