XL 2016 Renommer tous les fichiers d'un répertoire avec préfixe aléatoire

Fab117 · 14 Novembre 2018

Salut,

Dans mon répertoire "C:\Tmp\Chansons" j'ai une série de fichiers auxquels je voudrais ajouter en préfixe un nombre aléatoire compris entre 1 et 900.

Mon approche a été de:

Récupérer les noms de fichiers dans un onglet (colonne "A")
Ajouter un nombre aléatoire (entre 1 et 900) en préfixe en colonne "B"
Reprendre les noms de la colonne "B" pour renommer les fichiers

Si j'ai réussi pour les 2 premiers points, je ne sais pas comment procéder pour le 3ème.

Quelqu'un saurait-il comment faire?

Ci-joint un fichier avec les 2 premiers points.

Excellente journée

Fab

Sheldor · 14 Novembre 2018

bonjour,
a = chemin + ancien nom
b= chemin + nouveau nom
name a as b
mieux vaut tester sur des copies plutôt que des originaux...

il vous manque un n à num dans 'Range("A" & numResultat) = fichier'

nico

zebanx · 14 Novembre 2018

Bonsoir à tous.

Moi j'utilise un petit exe vraiment agréable "RENAMER".
https://www.clubic.com/telecharger-fiche19213-renamer.html

@+

Fab117 · 15 Novembre 2018

Hello,
Un grand merci à vous deux d'avoir pris le temps de regarder mon problème.
Je préférerais utiliser une macro vba avec Excel plutôt qu'un soft externe.
@nicopec : Je n'ai pas compris comment faire avec ta proposition

NB : Dans la version attachée, j'ai corrigé la faute de frappe. Merci

Fab117 · 16 Novembre 2018

Salut,
Quelqu'un pour m'aider à renommer mes fichiers ?

Bon début de week-end.

Fab

Sheldor · 17 Novembre 2018

bonjour,

For i = 1 To Cells(10000, 1).End(xlUp).Row
chemin = "C:\Tmp\Chansons\"

a = chemin & Cells(i, 1)
b = chemin & Cells(i, 2)

Name a As b

Next i

Fab117 · 17 Novembre 2018

Ca fonctionne parfaitement.
Merci beaucoup.

Excellent week-end

Fab

kiki29 · 17 Novembre 2018

Salut, à voir :

Ainsi qu'ici

riton00 · 17 Novembre 2018

Bonsoir,

Voir avec ce fichier pour renommer vos fichiers

Slts

XL 2016 Renommer tous les fichiers d'un répertoire avec préfixe aléatoire

Fab117

XLDnaute Impliqué

Pièces jointes

Sheldor

XLDnaute Occasionnel

zebanx

XLDnaute Accro

Fab117

XLDnaute Impliqué

Pièces jointes

Fab117

XLDnaute Impliqué

Sheldor

XLDnaute Occasionnel

Fab117

XLDnaute Impliqué

kiki29

XLDnaute Barbatruc

riton00

XLDnaute Impliqué

Pièces jointes

Discussions similaires