Discussion :

[doncamelo]

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

[kiki29]

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

[ucfoutu]

Bonjour,

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

[ucfoutu]

MP reçu de doncamelo,

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.

[Pierre Fauconnier]

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 :

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

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

renverra le nom du fichier avec une seule extension .csv

[ucfoutu]

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 :

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

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

[alsimbad]

bonsoir tout le monde
clin d'oeil du béotien, mais dès fois un regard nouveau (naif ? ) 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 ...

[Bigalo]

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 :

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

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