PB macro:

[Pierre]

Pb de macro qui me met:
"l'indice n'apparait pas à la sélection"
Je n'arrive pas à trouver d'où ça vient.
Merci encore!
ps: le message suivant contient le fichier rue.xls d'où peut venir le pb.



Sub Inserer_Adresses()

Dim FichierAdresses As String
Dim MaCellule As Variant


'chemin du fichier contenant les codes RIVOLI et les adresses
FichierAdresses = "C:\temp\MACRO\RUES.xls"

'ouverture du fichier des adresses
Workbooks.Open FichierAdresses

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


'on recherche dans le classeur des adresses
With Workbooks(FichierAdresses).Worksheets("Feuil1").Range("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



Next

End Sub

 

[Yeahou]

Bonjour Pierre, le forum

sans regarder plus loin, je dirai que ton problème vient de
Workbooks(FichierAdresses) ou fichieradresses contient le nom de fichier avec path
tu peux régler cela de plusieurs façons, en voici une:

1-Workbooks(Dir(FichierAdresses,vbnormal))
oû Dir(FichierAdresses,vbnormal) te renverra le nom de fichier sans sa path.

2-une deuxième
en début de code
Dim FichierAdresses as Variant

et ensuite à l'ouverture du fichier
Set FichierAdresses = Workbooks.Open FichierAdresses

pour traiter les données
With FichierAdresses.Worksheets("Feuil1").Range("RIVOLI")

Fichieraddresses étant variant, il contiendra une chaine texte à l'ouverture du fichier et ensuite le fichier luimême que tu pourras appeler directement.

3- tu peux également séparer ta variable texte en deux, une contenant le nom et l'autre le chemin et les utiliser ensuite selon tes besoins

Cordialement, A+

 

[Yeahou]

Re bonjour

With Workbooks(Dir(FichierAdresses, vbNormal)).Worksheets("Feuil1").Columns("A:A")
cela passera mieux

A+