Besoin d'aide macro vba

lechti31

XLDnaute Junior
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
 

Fichiers joints

Hieu

XLDnaute Impliqué
Salut,

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

VB:
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
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas