suppression de pseudo extension

Bonjour tout le monde,

J'aimerais avoir un coup de pouce pour le problème auquel je dois faire face.

je reçois mensuellement des fichiers csv (environ 68 ) que je dois importer sous un logiciel d'analyse statistique.

Le problème c'est que certains de ces fichiers csv comportent des pseudo extension (analyse.xls.csv ou bilan.csv.csv) qui sont mal supportés par le logiciel de stat.

Jusqu'ici je supprimais fichier après fichier les extensions pour ensuite enregistrer en format csv.

Ce que j'aimerais, c'est pouvoir à partir d'excel avoir un programme vb qui pour chaque fichier csv qui se trouve dans le dossier, pouvoir récupérer juste le nom du fichier (analyse) et ensuite dans un autre dossier enregistrer ce fichier en csv.

Pour récapituler :

Dans le dossier " extraction " se trouvent les 68 fichiers csv comportant quelques pseudos extensions, exemple : " analyse.xls.csv " .

Dans un autre dossier " valide " je voudrais avoir l'ensemble des fichiers csv du dossier " extraction " enregistré en format csv.

je vous remercie par avance

doncamelo

Jour Bon
Un exemple à adapter
2 méthodes Move et Copy

Bonjour,

renomme tes fichiers en utilisant Replace pour remplacer "xls." par ""

MP reçu de doncamelo,

Citation:

---

Bonjour ucfoutu,

je te remercie de répondre à ma demande, mais je ne comprends pas trop ce que tu veux dire par replacer "xls" par "" .

Pourrais tu être plus explicite STP !!!!!

Bonne Année !!!

Doncamelo

---

je l'invite à ouvrir son aide en ligne sur le mot Replace.

Bonjour ucfoutu

D'accord avec toi, mais cela ne solutionnera pas son problème pour les fichiers "monfichier.csv.csv"...

Moi, je suggérerais l'emploi de split, pour autant que le nom du fichier (sans les extensions) ne contienne pas de points

Code:

---

Split(NomFichier, ".")(0) & ".csv"

---

renverra le nom du fichier avec une seule extension .csv

Bonsoir Pierre Fauconnier,

Dans ce cas (et si le nom du fichier est sans le signe point) :

relever la position du 1er "." (instr), extraire ce qu'il y a jusqu'à ce point (left) et ajouter "csv" devrait suffire
ce qui devrait (à main levée) donner :

Code:

---

nouveau_nom = left(ancien_nom, instr(ancien_nom, ".")) & "csv"

---

bonsoir tout le monde
clin d'oeil du béotien, mais dès fois un regard nouveau (naif ? :D) n'est pas a dédaigner
donc, juste pour rire, mais es ce que le logiciel en question utilise le nom du fichier ? ou es ce qu'il l'ouvre et effectue ce qu'il a a faire en fonction de ce qu'il trouve a l'interieur? parce que dans ce cas la, pourquoi ne pas tout betement renomer les fichiers arbitrairement part une simple boucle
1.csv 2.csv 3.csv ...

Bonsoir,

Pour compléter, la méthode de ucfoutu est très bien, mais elle ne permet pas de déterminer si l’ancien nom était correct et s’il faut réenregistrer le fichier.

Si l’ancien nom ne comporte pas de pseudoextension, la position du premier point dans le nom de fichier est égale au nb de caractères de ce nom moins 3, ce qui permet d’enregistrer le fichier uniquement si nécessaire :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test() NomSansDoubleExtension ActiveWorkbook.Name End Sub   Sub NomSansDoubleExtension(Ref As String) If InStr(Ref, ".") <> Len(Ref) - 3 Then ActiveWorkbook.SaveAs Left(Ref, InStr(Ref, "." & "csv" End If End Sub

---

Il faut éventuellement gérer en plus le répertoire pour l’enregistrement.

Cordialement,

Michel Gaboly

Bonjour à tous...

Toutes les méthodes proposées sont intéressantes, mais... sans vouloir être chiant ou dire que ma méthode est meilleure (quoique... :D)...

La méthode d'ucfoutu et celle de Michel qui en est dérivée (avec instr et left) ne fonctionneront pas sans test si il n'y a pas d'extension du tout, et donc pas de point.

Code:

---

Split(NomFichier, ".")(0) & ".csv"

---

a l'avantage de fonctionner sans test à (presque*) tous les coups, que le nom du fichier soit composé de 0, 1 ou plusieurs extensions.

(*) Il faut que le nom du fichier (sans extension) ne contienne pas le signe "."

Par contre, je trouve l'approche d'Alsimbad intéressante (et elle fonctionne à tous les coups!). La balle est dans le camp de Thierry pour la suite...

Bonjour ,

donc (et pour autant que le fichier sans extension n'ait pas de point) :

Code:

---

1 2 3 4

nouveau_nom = Left(ancien_nom & ".", InStr(ancien_nom & ".", ".")) & "csv" If nouveau_nom <> ancien_nom Then 'on réenregistre end if

---

Bien... si notre ami ne trouve pas son bonheur dans toutes ces solutions. ...:lol:

Re, Une autre methode CopyFile avec avertissement si un doublon apparait dans le dossier de destination