J
JJ1
Guest
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
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