Problème générer une liste en Vba

Bonjour,

J'essaie de faire un VBA avec excel qui crée une liste de fichiers situées a différentes place dans mon ordinateur. Ce que j'ai fait, c'est que j'ai crée un script dans chaque document que je veux l'information. Ensuite, à l'aide du VBA, j'exécute ces scripts pour qu'ils puissent générer une liste en fomat .txt . Par la suite, je récupère ces fichiers pour en constituer un seul pour avoir mes informations en une seule place. Voici mon code:

Sub ouvrirfichier()


Dim myfile3 As Long
Dim myfile4 As Long
Dim myfile3_myfile4 As String
Dim msgfin As Integer

myfile1 = 1
myfile2 = 2
myfile1_myfile2 = 3

'Endroit où sont situées mes valeurs''Exécution des fichiers .bat'
Call Shell("G:\Films & vidéos\liste.bat", vbHide)
Call Shell("D:\Downloads\Films et vidéos\liste_2.bat", vbHide)

'Exécution et lecture et fichiers .txt'
Open "G:\Films & vidéos\liste.txt" For Input As myfile1
Open "D:\Downloads\Films et vidéos\liste_2.txt" For Input As myfile2
Open "C:\Users\Dave\Desktop\fichiers.txt" For Output As myfile1_myfile2

'Ouverture du fichier, et écriture dasn le fichier final'
While Not EOF(3)
Line Input #1, Line
Print #3, Line
Line Input #2, Line
Print #3, Line
'Fermer la lecture des fichiers'
Wend

Close #1
Close #2
Close #3

msgfin = MsgBox("Le fichier est crée!", vbOKOnly)
End Sub

Mon problème, de un, c'est que les scripts ne veulent pas créer leur fichier en passant par le VBA, il faut que je le fasse manuellement. Et également, il n'y a rien d'écris dans mon fichier final. Une fois réglé, je voudrais le convertir en .xls pour pouvoir mettre l'information en ordre alphabétique.

Merci d'avance de pouvoir m'aider dans ma démarche!

Au revoir!