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+