[VBA] Renommer un fichier au nom inconnu
Résolu
danieliiitooo
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
Gord21 Messages postés 918 Date d'inscription Statut Membre Dernière intervention -
Gord21 Messages postés 918 Date d'inscription Statut Membre Dernière intervention -
Bonjour à toutes et à tous,
Ci-dessous un petit souci que je ne parviens pas à résoudre... =S
Je souhaiterai, en VBA, renommer un fichier dont je ne connais pas le nom avec un nom définit dans une variable.
Exemple:
Le fichier toto.csv se trouve dans le répertoire C:\test\
Je ne connais pas le nom de toto.csv et je souhaiterai le renommer en titi.csv
Il n'y a systématiquement qu'un seul et unique fichier dans le répertoire C:\test\ (mais son nom est variable...)
Dans mon cas, impossible d'utiliser la fonction ci-dessous car je ne connais pas le nom original:
Sub Test()
Name "C:\Test\toto.csv" As "C:\Test\titi.csv"
End Sub
J'ai tenté (l'illusion du débutant...) des astuces telles que:
Sub Test()
Name "C:\Test\*.csv" As "C:\Test\titi.csv"
End Sub
En vain, le rêve a ses limites =)
J'ai également tenté de récupérer le nom du fichier dans une variable (Avec une fonction de type Application.FileSearch...) en vain, je n'y arrive pas.
Auriez vous une petite idée ?
Merci d'avance,
Dan
Ci-dessous un petit souci que je ne parviens pas à résoudre... =S
Je souhaiterai, en VBA, renommer un fichier dont je ne connais pas le nom avec un nom définit dans une variable.
Exemple:
Le fichier toto.csv se trouve dans le répertoire C:\test\
Je ne connais pas le nom de toto.csv et je souhaiterai le renommer en titi.csv
Il n'y a systématiquement qu'un seul et unique fichier dans le répertoire C:\test\ (mais son nom est variable...)
Dans mon cas, impossible d'utiliser la fonction ci-dessous car je ne connais pas le nom original:
Sub Test()
Name "C:\Test\toto.csv" As "C:\Test\titi.csv"
End Sub
J'ai tenté (l'illusion du débutant...) des astuces telles que:
Sub Test()
Name "C:\Test\*.csv" As "C:\Test\titi.csv"
End Sub
En vain, le rêve a ses limites =)
J'ai également tenté de récupérer le nom du fichier dans une variable (Avec une fonction de type Application.FileSearch...) en vain, je n'y arrive pas.
Auriez vous une petite idée ?
Merci d'avance,
Dan
A voir également:
- [VBA] Renommer un fichier au nom inconnu
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Renommer fichier en masse - Guide
- Fichier rar - Guide
2 réponses
Bonjour,
Tu peux utiliser la fonction Dir pour récupérer le nom de ton fichier :
fichier = Dir("C:\Test\*.csv")
Ton fichier n'a pas besoin d'être le seul fichier csv, tu peux appeler la commande dir comme indiqué ci-dessus, puis appeler les autres à l'aide d'une boucle :
Tu peux utiliser la fonction Dir pour récupérer le nom de ton fichier :
fichier = Dir("C:\Test\*.csv")
Ton fichier n'a pas besoin d'être le seul fichier csv, tu peux appeler la commande dir comme indiqué ci-dessus, puis appeler les autres à l'aide d'une boucle :
For ... fichier = Dir 'sans arguments Next ...