Discussion :

[MackAir]

Bonjour,
Je suis nouveau sur le forum et dans le domaine et j'espère être au bon endroit pour commencer une nouvelle discussion.

Je suis stagiaire et dans le cadre de mon stage je dois récupérer des exports d'un logiciel (sous forme de fichiers Excel) et les mettre dans une base de données ACCESS (tout se fait dans en VBA). Le but étant de changer les exports d'un ancien logiciel pour passer à un nouveau.
Mon problème est que les fichiers exports du nouveau logiciel sont différents de ceux du premier, en effet sur le nouveau logiciel les noms des fichiers exports sont variables.
Exemple de la forme d'un fichier export : AAAAA_Export_BBBBBB_20190418_040001.csv
Il y a donc l'année, le mois, le jour, l'heure, la minute et la seconde qui sont variables dans le nom du fichier.

Je voudrais donc renommer ces fichiers de manière automatique avec la forme AAAAA_Export_BBBBBB.csv .
J'ai pas mal cherché sur internet et je n'arrive pas à sélectionner le fichier (dans en VBA) pour le renommer à cause de la partie variable.
Si quelqu'un aurait une idée pour que je puisse sélectionner ces fichiers et les renommer afin de les exploiter par la suite.
En espérant avoir été clair et assez précis.

Dans la mesure du possible je me tiens disponible pour d'éventuelles questions.
Merci beaucoup.

[anasecu]

Bonjour,

Exemple de la forme : AAAAA_Export_BBBBBB_20190418_040001.csv avec la forme AAAAA_Export_BBBBBB.csv .

Si tu as plusieurs fichiers de la première forme cela ne peut pas fonctionner puisque ta seconde forme est unique.

[MackAir]

Bonsoir, Merci de ta réponse.
Je me suis mal exprimé je pense, les fichiers sont plus de la forme NomLogiciel_Export_BBBBB_20190427_040001.csv
Et la partie "BBBBB" change selon chaque fichiers d'exportation mais restera toujours la même.
Donc il faudrait retirer la partie date afin de pouvoir selectionner les différents fichier ce qui donnerai :
NomLogiciel_Export_AAAAA.csv
NomLogiciel_Export_BBBBB.csv
Soit plusieurs fichiers différents.
En espérant avoir été plus clair.

[halaster08]

Bonjour,

Je voudrais donc renommer ces fichiers de manière automatique avec la forme AAAAA_Export_BBBBBB.csv .
J'ai pas mal cherché sur internet et je n'arrive pas à sélectionner le fichier (dans en VBA) pour le renommer à cause de la partie variable.
Si quelqu'un aurait une idée pour que je puisse sélectionner ces fichiers et les renommer afin de les exploiter par la suite.

As-tu essayer avec l'opérateur like ?

Voici un code que j'utilise pour ouvrir un fichier csv avec la date qui varie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
chemin = "C:\Users\" & Environ("UserName") & "\Downloads\export-requete4-" & Year(Date) & WorksheetFunction.Text(Month(Date), "00") & WorksheetFunction.Text(Day(Date), "00") & "*.csv"
 Dir (chemin)
 
If not (Dir(chemin) = "") Then
    Workbooks.OpenText Filename:=chemin _
        , Origin:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Semicolon:=True

[MackAir]

Bonjour halaster08,
Merci d'avoir répondu, je vais essayer de voir ce que je peux faire avec ça .

[MackAir]

Bonjour,
J'ai regardé ce que vous m'avez envoyé, mais j'ai trouvé une solution qui me parait viable, le seul problème est que je ne sais pas comment la retranscrire sur un VBA.
Donc ma solution, je peux la faire fonctionner avec une invite de commande :
:V ( Je me place dans le bon disque)
cd Dossier\SousDossier ( maintenant dans le bon dossier)
dir /b > Liste.csv (Je fais un dir abregé afin d'enregistrer les noms et extensions dans un fichier csv)
Donc je n'ai plus besoin de connaître leurs noms, mais je peux les récuperer directement dans le fichier Excel vus que tous les fichiers sont listés.
Il me reste plus qu'a le mettre sur un VBA et trouver comment renommer chaque fichier en fonction de leur case.

[halaster08]

Ce post pourrait t'aider: https://www.developpez.net/forums/d9...-fichier-text/

[MackAir]

Merci beaucoup,
Je regarde un peu plus tard dans la journée.