Discussion :

[eole-33]

Bonsoir le forum

Je viens de trouver un code sur ce forum qui permet de remplacer l'extension de fichier

Code :

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

1
2
3
4
5
6
7
stFic = Dir(stPath & "*.txt")
 
 While stFic <> "" 
    NouvNom = Replace(stFic, ".txt", ".xlsx")
    Name stPath & stFic As stPath & NouvNom
   stFic = Dir
Wend

Mon souci, c'est que j'aurai besoin de l'appliquer à chaque fichier contenu dans un sous-répertoire d'un répertoire qui change à chaque fois

Je ne sais pas comment m'y prendre pour boucler sur tous les répertoires

exemple :
rep1 (qui change à chaque fois)

sous-rep1
test.txt
sousrep2
test.txt
...

résultat à a obtenir

rep1
sous-rep1
test.xlsx
sousrep2
test.xlsx
...

Je vous remercie pour votre aide et votre disponibilité

[kiki29]

Salut, toujours d'actualité voir d'AlainTech, sinon une recherche ?

[clementmarcotte]

Penses-y. 364 réponses à vérifier, c'est bien trop.

[Menhir]

remplacer l'extension de fichier

Attention, ce n'est pas en changeant l'extension de fichier que tu changes la nature du fichier.
Même si tu mets .xlsx à la fin d'un fichier texte, ça reste un fichier texte.

Mon souci, c'est que j'aurai besoin de l'appliquer à chaque fichier contenu dans un sous-répertoire d'un répertoire qui change à chaque fois

Il faut que tu fasses deux boucles imbriquées : une pour rechercher les sous-répertoires et une autre, à l'intérieur, pour rechercher les fichiers de chaque sous-répertoire.
Pour les sous-répertoires, il suffit de mettre vbDirectory en second paramètre de la fonction Dir().
https://msdn.microsoft.com/fr-fr/lib.../gg278779.aspx

[eole-33]

Bonsoir le forum

Bonsoir kiki29, clementmarcotte et menhir merci pour votre attention et votre aide

1 - je ne cherche pas à lister un répertoire avec ses sous-répertoires et les fichiers dans une feuille excel
pour ça j'ai un code qui est nickel

2 - je sais quand changeant l'extension d'un fichier *.txt en *.xlsx je ne fais pas du excel, mais en fait je vais aller ouvrir via un autre code les fichiers renommés en *.txt par le biais de l'assistant d'importation d'excel en format unicode utf-8 ceci afin d'importer le contenu du fichier 12 lignes environ dans un encadré d'une feuille excel

[Menhir]

Je ne sais pas comment m'y prendre pour boucler sur tous les répertoires

1 - je ne cherche pas à lister un répertoire avec ses sous-répertoires et les fichiers dans une feuille excel
pour ça j'ai un code qui est nickel

Tu peux expliquer plus clairement ce que tu veux ?

[eole-33]

Bonsoir le forum

Bonsoir Menhir

Ben voilà j'ai besoin de changer d'extension un fichier se trouvant dans des sous répertoires d'un répertoire que je vais chercher

comme je l'expliquais plus haut

j'ai un répertoire (il change tout le temps) dans ce répertoire, j'ai x sous-répertoires contenant chacun des fichiers dont 1 en *.txt que je voudrais convertir en *.xlsx. (le fichier que je cherche à convertir porte le même nom dans chaque sous-répertoire) super travail intéressant

Ou mieux encore, créer à partir des fichiers *.txt:

a- 1 fichier *.xlsx qui reste dans son sous-répertoire

b - 1 fichier (copie ce même fichier) renommer avec le nom du sous répertoire coller dans le répertoire

oui je sais c'est c.. bête et compliquer, mais voilà c'est des dossiers de mesures déposer dans un DOE de fin de travaux.

Mais si j'avais déjà ca je pense que je pourrais envisager la suite

Actuellement voici mes journées, j'ouvre un répertoire, je rentre dans chaque sous-répertoire qu'il contient, je convertie le fameux fichier en *.txt vers du *.xlsx, puis je le copie pour le coller dans le répertoire en le renommant par le nom du sous-répertoire.
Une fois passer tous les sous répertoire, je vais coller les tableaux des nouveaux fichiers *.xlsx dans un documents et je recommence avec un autre répertoire

merci pour ta disponibilité et pour ton aide

[Menhir]

j'ai un répertoire (il change tout le temps) dans ce répertoire, j'ai x sous-répertoires contenant chacun des fichiers dont 1 en *.txt que je voudrais convertir en *.xlsx. (le fichier que je cherche à convertir porte le même nom dans chaque sous-répertoire) super travail intéressant

Dans ton message #1, tu montres que tu as le code pour trouver les txt et modifier l'extension.
Dans ton message #5, tu dis que tu as un code "nickel" pour scruter les sous-répertoires.

Je ne vois donc pas ce qu'il te manque pour faire ton code.

[eole-33]

Bonsoir le forum

Bonsoir Menhir

Non je crois qu'il y a méprise où à tu vus que j'avais un code nickel pour pour scruter les sous-répertoires, c'est à la base ce que je cherche à faire,
dans mon message 1 j'ai bien mis un code qui permet de remplacer les extensions et j'explique ce que je voudrais faire ==> boucler des sous-répertoires

dans mon message 5 en premier je ré-explique cela, en deux "je rêve" en trois j'explique ce que je fais manuellement toute la journée, fichier par fichier, sous-répertoire par sous-répertoire pour chaque répertoire que je traite

je n'ai jamais eu de code nickel pour boucler sur des sous-répertoire

re exemple

j'ouvre un
repertoire x

j'ouvre le
sous repertoire a
je transforme le fichier *.txt en *.xlsx, ensuite le *.xlsx je le renomme fichier a.xlsx(manuellement)en gardant toujours le fichier*.xlsx transformé
puis
j'ouvre le
sous repertoire B
je transforme le fichier *.txt en *.xlsx, ensuite le *.xlsx je le renomme fichier a.xlsx(manuellement)en gardant toujours le fichier*.xlsx transformé
puis
j'ouvre le
sous repertoire c
je transforme le fichier *.txt en *.xlsx, ensuite le *.xlsx je le renomme fichier a.xlsx(manuellement)en gardant toujours le fichier*.xlsx transformé

....

une fois que j'ai fini je récupère tous les fichiers *.xlsx qui ont été renommés (a.xlsx, bxlsx...) dans le répertoire directement et là je vais essayé de leur appliquer un autre code

je sais le système est complètement c.., mais je n'ai pas le choix

Tous les fichiers *.txt (il y en a qu'1 à chaque fois)contenus dans les sous-répertoires ont au départ le même nom "Fichier_mesures_ordt.txt"

[Menhir]

Non je crois qu'il y a méprise où à tu vus que j'avais un code nickel pour pour scruter les sous-répertoires,

Dans ton message #5

1 - je ne cherche pas à lister un répertoire avec ses sous-répertoires et les fichiers dans une feuille excel
pour ça j'ai un code qui est nickel

Si ce n'est pas le cas, voir mon message #4.

[eole-33]

Bonsoir le forum

Bonsoir Menhir

Ok je n'avais pas compris comme ça

je mets en pièce jointe le fichier qui me permet de lister un répertoire complet
mais il le fait sur une feuille dans un nouveau classeur

Alors que ce que je cherche à faire c'est renommer des fichiers directement dans les sous-épertoires

[Menhir]

ce que je cherche à faire c'est renommer des fichiers directement dans les sous-épertoires

On essaye une dernière fois : LIS MON MESSAGE #4 !