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

[Fab117]

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:

1. Récupérer les noms de fichiers dans un onglet (colonne "A")
2. Ajouter un nombre aléatoire (entre 1 et 900) en préfixe en colonne "B"
3. 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]

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]

Bonsoir à tous.

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

@+

 

[Fab117]

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]

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

Bon début de week-end.

Fab

 

[Sheldor]

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]

Ca fonctionne parfaitement.
Merci beaucoup.

Excellent week-end


Fab

 

[kiki29]

Salut, à voir :

• Liste des fichiers d'un dossier : Win 32/64 Bits
• Liste des fichiers d'un dossier + Liens
• liste des fichiers avec visualisation de l'arborescence
• Liste des fichiers d'un dossier avec recherche récursive ou non via les APIs

Ainsi qu'ici

 

[riton00]

Bonsoir,

Voir avec ce fichier pour renommer vos fichiers

Slts