chercher la localisation d'un fichier à l'aide dune macro Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
roussel
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 8 mai 2013
Version d'Excel : 2010

Message par roussel » 9 mai 2013, 08:52

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 !
v
vba-new
Passionné d'Excel
Passionné d'Excel
Messages : 3'003
Appréciations reçues : 2
Inscrit le : 13 mai 2009
Version d'Excel : 2010 FR - 2013 FR

Message par vba-new » 9 mai 2013, 16:33

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 ?
vba-new
r
roussel
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 8 mai 2013
Version d'Excel : 2010

Message par roussel » 9 mai 2013, 17:57

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 !
v
vba-new
Passionné d'Excel
Passionné d'Excel
Messages : 3'003
Appréciations reçues : 2
Inscrit le : 13 mai 2009
Version d'Excel : 2010 FR - 2013 FR

Message par vba-new » 9 mai 2013, 18:50

Ah c'est mieux :D

Essaie avec ce code :
repertoire = ThisWorkbook.Path & "\"
Workbooks.OpenText Filename:= repertoire & "INFO\F.0 cm.csv", DataType:=1, Semicolon:=True, local:=True
vba-new
r
roussel
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 8 mai 2013
Version d'Excel : 2010

Message par roussel » 10 mai 2013, 03:51

Bonjour vba-news,

merci cela fonctionne très bien :D

Bonne continuation !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message