Récupérer dans un fichier xls par une macro un champ d'un autre fichier xls

[Pierre]

Bonjour,

Voilà le cas:
J'ai un fichier xls avec les champs: PROPRIETAIRE et RIVOLI (code rue).
Dans un autre: RUE (nom rue) et RIVOLI (code rue).
Peut-on faire une macro qui ajoute le champ RUE dans mon 1er fichier xls des propriétaires en trouvant la correspondance des rues ?
Cf fichier xls ci-joint où les 2 fichiers ont été mis en 1.
Merci de votre aide.
Pierre.

 

[K@d]

Salut !

Cela ne devrait pas être trop difficile...
Insère cette petite macro dans le fichier où tu souhaites insérer tes adresses... Au préalable, nomme dans ton fichier code rivoli / adresses la zone contenant tous les codes RIVOLI (ou la colonne) en "Zone_RIVOLI" et celle contenant les adresses en "Zone_Adresses".


Sub Insert_Adresses

Dim FichierAdresses as string
Dim MaCellule as object
Dim Rivoli

'indiquer ici le chemin du fichier contenant les codes RIVOLI et les adresses
FichierAdresses="C:\Mes Documents\....."

'on ouvre le fichier des adresses
Workbooks.Open FichierAdresses

'pour chaque code Rivoli de la colonne A
For each MaCellule in Columns("A:A")

'si la cellule contient un code uniquement
if MaCellule.value<>""

'on recherche dans le classeur des adresses
With Workbooks(FichierAdresses).Worksheets("FeuilAdresses").Range("Zone_RIVOLI")

Set C = .Find(MaCellule.value, LookIn:=xlValues)

'si on trouve une correspondance
If Not C Is Nothing Then

'alors on met l'adresse correspondant au code
intersect(Macellule.entirerow,columns("H:H")).value=intersect(C.entirerow,range("Zone_Adresses")).value

End If

End With

endif

next

End sub

Il sera peut-être nécessaire d'adapter un peu le code en fonction des colonnes utilisées...

Bon courage !!

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)

 

[Pierre]

Merci beaucoup !!!!