Renommer un fichier dont on ne connait pas le nom exact

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Renommer un fichier dont on ne connait pas le nom exact

sopi

Bonjour !

Je désire renommer un fichier dont je ne connais pas le nom exact.
Je voudrais utiliser la première partie du nom uniquement, car je voudrais qu'il me renomme la globalité des fichiers commençant par un certain préfixe.

Sauriez-vous comment faire ? Merci d'avance ...

Publicité

nantuko

J'ai rien compris, si tu pouvais exposer ton problème plus en détail, ça serait sympa

mareek

Et de 3 \o/

Utilise le logiciel ant renamer, il fait exactement ce que tu demandes:
http://www.antp.be/software/renamer

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

the real moins moins

et il le fait bien [:bien]

---------------
Hey toi, tu veux acheter des minifigurines Lego, non ?

sopi

Merci, mais j'aimerai le faire depuis VBA.
Je m'explique si jamais vs m'aviez pas trop compris : je vais créer au fils du temps plusieurs fichiers utilisant le même préfixe disons "test" mais la suite du fichier prendra l'année en cours et peut-être le mois.
Alors je vais pas m'amuser à coder en dure dans le code, chaque nom de fichier possible ... alors je me demandais s'il était possible à l'aide d'une commande VBA de faire un truc du style : rename test*.xls...

AlainTech

Pas trouvé? Cherche encore!

Voilà de quoi t'inspirer.
Ca ne fait pas exactement ce que tu veux mais, si tu cherches un peu, tu devrais t'en sortir.

Public Sub Rename()

Dim sFullName
Dim sName As String
Dim sNewName As String
Dim sPath As String
Dim vI As Variant

Sheets("Liste" ).Activate
Cells.Clear
sPath = "C:\Mes documents\Excel\ALAIN\" ' Définit le chemin d'accès.
' Extrait la première entrée.
sName = Dir(sPath)
Do While Not sName = "" ' Commence la boucle.
If Right$(sName, 4) = ".xls" Then
If UCase(Left$(sName, 4)) = "TEST" Then
sFullName = sPath & sName
sNewName = sPath & "bk" & sName
Name sFullName As sNewName
End If
End If
sName = Dir ' Extrait l'entrée suivante.
Loop
End Sub

Message édité par AlainTech le 25-03-2005 à 00:41:07

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Renommer un fichier dont on ne connait pas le nom exact

Sujets relatifs
copier des donnees d'un fichier excel vers une table sage	au sujet des fichier.ini
[noob][Batch]Chercher puis supprimer un fichier?	nombre de lignes dans un fichier
Creation de fichier en php	problème pour ecriture de résultat dans un fichier text
Syntaxe pour faire une requete sql sur un fichier Excel ?	Exercice de cryptographie? fichier cpp à complèter?
[Résolu] executer un fichier et afficher le résultat	Copier un fichier en C
Plus de sujets relatifs à : Renommer un fichier dont on ne connait pas le nom exact

Page générée en 0.049 secondes