Renommer dossier en masse

[reve24]

Bonjour
je cherche à extraire les dossiers d'une arborescence renommer les noms des dossiers en masse

J ai trouvé des fichiers mais généralement il traite ceci individuellement.

quelqu un sait il comment faire

 

[Robert]

Re : Renommer dossier en masse

Bonjour Reve, bonjour le forum,

Le code ci-dessous renomme tous les sous-dossiers du dossier : "\\serveur\PUB\poubelle" (bien sûr tu adapteras le dossier de base) en les appelant :
• Sous Dossier 000
• Sous Dossier 001
• Sous Dossier 002

Tu adapteras aussi pour les noms...
Le code :

Sub Macro1()
Dim SF As Object
Dim D As Object
Dim SDs As Object
Dim SD As Object

Set SF = CreateObject("Scripting.FileSystemObject")
Set D = SF.getfolder("\\serveur\PUB\poubelle") 'à adapter à ton cas = le chemin d'accès du dossier de base
Set SDs = D.subfolders
x = 0 'a supprimer certainement en fonction de ce que tu veux
For Each SD In SDs
    'tu dois adapter cette partie car tu ne donne aucune explication
    SD.Name = "Sous Dossier " & CStr(Format(x, "000"))
    x = x + 1
Next SD
End Sub

 

[reve24]

Re : Renommer dossier en masse

merci robert mais tu ne réponds pas à mon besoin
regardes dans le titre en masse

tu traites individuellement les chemins et les noms des dossiers

imagines 200 LIGNES

dossier new dossier NOUVELLE ARBORESCENCE
C:\Documents and Settings\PROFIL1\Bureau\toto MOMO C:\Documents and Settings\PROFIL1\Bureau\MOMO
C:\Documents and Settings\PROFIL1\Bureau\titi MIMI C:\Documents and Settings\PROFIL1\Bureau\MIMI
C:\Documents and Settings\PROFIL1\Bureau\tutu MUMU C:\Documents and Settings\PROFIL1\Bureau\MUMU
C:\Documents and Settings\PROFIL1\Bureau\tata MAMA C:\Documents and Settings\PROFIL1\Bureau\MAMA

 

[Robert]

Re : Renommer dossier en masse

Bonsoir Reve, bonsoir le forum,

imagines 200 LIGNES

Non j'imagine pas ! Je ne veux surtout pas pas imaginer ! Désolé de t'avoir dérangé pour rien... Je dois être à la masse moi aussi pour ne pas avoir vu cette évidence...

 

[reve24]

Re : Renommer dossier en masse

Bonjour à tous

Nous allons essayer de recentrer le sujet ( peut être mal exposé de ma part)
Après une extraction des dossiers .
J ai une liste pouvant aller jusqu à 150 dossiers voire plus
le dossier ayant été noté (exemple) LEGENDRE doit être théoriquement noté C10210 LEGENDRE SARL

colonne A ancien dossier colonne B nouveau dossier

Pouvons nous renommer en masse

Sinon j ai une autre solution :
Creer des dossier en masse facile
Mais apres il faut déplacer en masse les fichiers et sous dossiers de (dans notre exemple) LEGENDRE dans C10210 LEGENDRE SARL

et la pas facile

 

[MJ13]

Re : Renommer dossier en masse

Bonjour à tous

Normalement, on peut utiliser un code de ce type pour renommer un dossier:

Sub Renomme_Dossier()
Name "C:\Temp6\A" As "C:\Temp6\B"
End Sub

 

[reve24]

Re : Renommer dossier en masse

Merci MJ13 mais tu traites individuellement les dossiers
J 'en ai 200 dossiers avec des noms différents
Les logiciels ne traitent pas ceci ANT RENAMER Lupas Rename2000 Renamer Name Wizz

Moi j aimerais traiter en dans un onglet excel en masse et via VBA renommer les dossier suivant la colonne B par exemple .
Ton code traite un chemin un dossier

 

[MJ13]

Re : Renommer dossier en masse

Re

Voici un exemple de ce qu'on peut faire.

Il faut créer les 2 dossiers en colonne A avant de tester.

 

[reve24]

Re : Renommer dossier en masse

BONJOUR

MJ13 merci pour ceci , toutefois quand je mets 10 fichiers cela fonctionne parfois mais me met un message d erreur "fichier existe deja"

je compte sur toi dans tous les cas parfait tu as bien cerné le sujet reste a perfectionné ton code mais je pense que tu y es presque

tu comprends pour 2 dossiers je l aurais fait a la main 😀 seulement le serveur en a 200 dossier
merci d avance

 

[MJ13]

Re : Renommer dossier en masse

Re

Mais si tu as des problèmes, je ne pourrais pas faire plus car ma proposition, je ne l'ai jamais testé mais je comprend que tu ai des soucis avec de nombreux fichiers. Il me semble que tu ne puisses modifier que le dernier nom de dossier.

Il faut dans ce cas voir pourquoi certains fonctionnent et d'autres pas.

Bon courage 🙂.

 

[MJ13]

Re : Renommer dossier en masse

Re

Sinon en reprenant ton fichier, voici ce qu'on peut faire avec une simulation de création de dossiers.

Pour le message d'erreur "fichier existe deja", il faudra sans doute supprimer les doublons ou ajouter on error resume next dans le code.

 

[reve24]

Re : Renommer dossier en masse

MERCI MJ13 SUPER Très beau travail

on error resume next c'est un peu du chinois même si je comprends ce que veux dire cette phrase

merci a toi