Besoin d'aide macro vba

[lechti31]

Bonjour
J'ai un fichier d'origine avec dans la colonne A des references
J'ai dans un dossier de mon ordinateur sous D:\Sylvain, des fichiers au format XLM
Ces fichiers sont toutes les références de ma colonne A, une référence un fichier.
J'aimerai que ma macro lise ma premiere référence, ouvre le fichier XLM au format XLS correspondant à ma référence, copie deux cellules du fichier ouvert pour les mettre dans la colonne B et C de mon fichier d'origine, puis referme le fichier, puis passe a la deuxieme reference et fasse de même et ainsi de suite jusqu'a la dernière référence.
Dans mon fichier joint
Ma premiere référence est 105516500 en lançant la macro, je veux donc ouvrir le fichier 10516500.XLM au format XLS, copie deux celulles de ce fichier et les coller en colonne b et c, puis refermer mon fichier 10561500.XLS
et faire de même pour les autres références
Je n'arrive pas a ouvrir automatiquement le fichier
pouvez vous m'aider
Merci

 

[Hieu]

Salut,

Une idée; J'ai créé des fichiers .txt dans un dossier (situé à l'emplacement du fichier) que j'ai appelé TEST.

Private Sub Mise_a_jour_Click()
Application.ScreenUpdating = False

chemin = ThisWorkbook.Path & "\"
dossier = "TEST\"
p = ThisWorkbook.Name ' parent
Set init = Workbooks(p).Sheets("Feuil1")
For i = 2 To 3
    nom = Range("a" & i) & ".txt"
    Workbooks.Open (chemin & dossier & nom)
    Set s = Workbooks(nom).Sheets(ActiveSheet.Name)
    init.Range("b" & i) = s.Range("a2")
    init.Range("c" & i) = s.Range("a3")
    Workbooks(nom).Close False
Next i
End Sub