Chercher la localisation d'un fichier dune macro

Bonjour,

J'ai une macro qui me permet d'ouvrir un fichier de type classeur qui fonctionne très bien.

Workbooks.OpenText Filename:="C:\Users\romain\Desktop\F.0 cm.csv", DataType:=1, Semicolon:=True, local:=True

Voici ma situation :

Dans un dossier (nous l'appellerons "RORO") j'ai mon fichier Excel avec la macro et un autre dossier (nous l'appellerons "INFO") ou il y a les informations contenues dans un classeur.

Mais, si je copie le dossier "RORO", que je le met à un autre emplacement, la macro ne se mettra pas à jour et prendra toujours les informations du fichier de base ce qui est normal vu que le code VBA possède la même localisation du fichier de base.

La question est la suivante :

Existe-t-il une macro qui mettent à jour la localisation du fichier sachant que la disposition et le nom des fichiers à l'intérieur de "RORO" seront les mêmes ?

N'hésitez pas à me poser des questions pour clarifier la situation.

Merci de votre aide !

Bonjour roussel,

Quel est l'utilité du dossier "INFO" ici ? Ouvres-tu un fichier qui se trouve dedans ?

Donne un exemple un peu plus parlant.

A quoi correspond le dossier INFO dans l'exemple de code VBA que tu donnes ?

Bonjour vba-news,

excuse moi de mon manque de précision.

En effet mon code vba n'était pas à jour avec les informations que j'ai données. Voici la mise à jour.

Workbooks.OpenText Filename:="C:\Users\romain\Desktop\RORO\INFO\F.0 cm.csv", DataType:=1, Semicolon:=True, local:=True

Dans le dossier RORO, se trouve le fichier Excel avec la macro et le dossier INFO ou se trouveront des fichiers Excel de type classeur (il y en aura une cinquantaine à peu près). Dans cet exemple, j'ouvre le classeur "F.0 cm.csv".

Ce que je cherche c'est s'il existe une macro qui peut ouvrir le classeur même si j'effectue un changement de localisation du fichier.

Par exemple : "C:\Users\romain\Desktop\nouveau_dossier\RORO\INFO\F.0 cm.csv

sachant que les trois derniers noms de fichier ne changeront jamais.

Je cherche à créer un dossier qui pourra fonctionner sur n'importe quel ordi.

J'espère que j'ai été plus précis. N'hésite pas à me demander plus de précision !

Ah c'est mieux

Essaie avec ce code :

repertoire = ThisWorkbook.Path & "\"
Workbooks.OpenText Filename:= repertoire & "INFO\F.0 cm.csv", DataType:=1, Semicolon:=True, local:=True

Bonjour vba-news,

merci cela fonctionne très bien

Bonne continuation !