Ouvrir des fichier qui se situent dans mon tableau

Bonsoir les amis! , j'ai un peu de difficulté a écrire un code qui ouvre les fichiers qui se trouvent dans ce tableau, le chemin de ces fichiers se situent en A1.

j'ai pensé a ca mais ca marche pas:

Dim Source As String
    Dim StrFile As String
    Dim wb As Workbook

        Source = "C:\Users\youssef\Desktop\VBA\Daten\"
    StrFile = Dir(Source)

    Do While Len(StrFile) > 0
        Set wb = Workbooks.Open(Source & StrFile)
        wb.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = wb.Name
        StrFile = Dir()
        wb.Close (True)
    Loop

Merci beaucoup

bonsoir,

essaie ceci

StrFile = Dir(Source & "*.csv")

Merci pour ta réponse H2so4 mais le code ouvre le premier fichier qui se situe dans mon chemin et non pas les fichiers que je veux :/

Ca à marché j'ai mis les fichier dans un array sNamen() et ca fonctionne merci beaucoup :)

bonjour,

et non pas les fichiers que je veux :/

et pourtant ta demande était précise, j'ai lu de travers ...