Ouvrir ts les fichiers Excel d'1 répertoire

bonjour,
cette petite macro est faite normalement pour ouvrir tous les fichiers excel (avec l'extension XLS mais c'est en réalité des fichiers texte) d'un répertoire et pour leur attribuer à chacun une liste de commande (pour moi une mise en forme que je n'ai pas mis car trop longue)
le Hic c'est que je boucle toujours sur le premier fichier et que je n'arrive pas à les ouvrir en tant que texte DOS
merci de me dépanner

Sub loopThroughFilesExample()
Application.DisplayAlerts = False
myFile = ActiveWorkbook.Name
myPath = "C:\data\g8_\fdp\"
workfile = Dir(myPath & "*.xls")
Do While workfile <> ""
Application.StatusBar = "Excel travaille sur " & workfile

Workbooks.OpenText FileName:=myPath & workfile, Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 2), Array(5, 1), Array(6, 1))

doSomething ActiveWorkbook
ActiveWorkbook.Save: Windows(workfile).Close
Loop
Application.StatusBar = False
End Sub
Sub doSomething(inBook As Workbook)

For Each wksht In inBook.Worksheets


liste de commande

Next wksht
End Sub