Renommer des fichiers.

[JJ1]

Bonjour,
J'ai trouvé des fils traitant de mdiification de noms de fichiers sous Excel mais j'en ai testé deux qui bug.
Voici le dernier code trouvé:

Sub Renomme()
'F1
Dim OldName, NewName
OldName = "C:\Test\Copie (zz) de test.jpg": NewName = Replace(OldName, " ", "") '"C:\Test\Copie (zz) de test.jpg" ' Définit les noms de fichiers.
Name OldName As NewName ' Renomme le fichier.
'OldName = "C:\MONREP\ANCFICH": NewName = "C:\VOTREREP\NOUVFICH"
'Name OldName As NewName ' Déplace et renomme le fichier.

End Sub

Je souhaiterais modifier environ 1000 fichiers MP3 qui sont dans le répertoire C:\musique pour les renommer 1,2,3....1000
Il n'y a que le nom à modifier, les tags (artiste, taille...) restent.

Avez-vous une solution sous VBA ou dois-je passer par un freeware spécialisé?

Merci

Bonne soirée

 

[R@chid]

Re : Renommer des fichiers.

Bonjour JJ1,
tu ouvres le dossier, tu fais Sélectionner tout, ensuite tu tapes F2, et tu tapes "mp (1)" ou "(1)" comme nom du premier fichier et Entrer
Amicalement

 

[JJ1]

Re : Renommer des fichiers.

Bonjour Rachid,

Merci pour ton astuce mais j'ai des touches affectées et Ctrl A puis F2 ouvre Néro.....


Je vais essayer autrement.

Bonne soirée

 

[Robert]

Re : Renommer des fichiers.

Bonjour le fil, bonjour le forum,

peut-être comme ça :

Sub Macro1()
Dim sf As Variant
Dim d As Variant
Dim fs As Variant
Dim f As Variant
Dim x As Integer

x = 1
Set sf = CreateObject("Scripting.FileSystemObject")
Set d = sf.getFolder("C:\musique")
Set fs = d.Files
For Each f In fs
    f.Name = CStr(x) & ".mp3"
    x = x + 1
Next f
End Sub

 

[R@chid]

Re : Renommer des fichiers.

Bonjour @ tous,
Salut Robert,

j'ai des touches affectées et Ctrl A puis F2 ouvre Néro.....

On n'en a pas Besoin,
Menu ==> Edition ==> Sélectionner tout
Bouton Droit sur le premier fichier ==> Renommer
Amicalement

 

[JJ1]

Re : Renommer des fichiers.

Re,
Rachid, j'ai utilisé le VBA.
Bonsoir Robert,

Je viens de tester le code, très efficace car immédiat! Merci
Juste une chose:
A chaque fichier correspond dans l'ordre: N° Artistes ayant participé Album
La macro peut-elle modifier ces 3 champs à vide (ou avec seulement un caractère "bidon")
Merci

 

[Robert]

Re : Renommer des fichiers.

Bonjour le fil, bonsjour le forum,

JJ j'ai pas compris ta demande. Donne-nous quelques exemples...