Bonjour à tous,

Je vous explique brièvement ma macro : Je viens, via un bouton de commande de copier coller un dossier à un certain endroit. Voilà comment est organisé ce dossier

"CLIENT-DPT-HG N AFF"
*Sous dossiers :
-"A-DP-CLIENT-DPT-HG N AFF-Demarches prealables"
**Sous dossiers + contenu:
-"DP0-CLIENT-DPT-HG N AFF-Courriers divers"
-multitude de pdf "DP(x)-CLIENT-DPT-HG N AFF-NomDuDoc.pdf"

-"B-DV-CLIENT-DPT-HG N AFF-Developpement"
**Sous dossiers + contenu :
-multitude de pdf "DV(x)-CLIENT-DPT-HG N AFF-NomDuDoc.pdf"

-"C-CO-CLIENT-DPT-HG N AFF-Construction"
**Sous dossiers + contenu:
-multitude de pdf "CO(x)-CLIENT-DPT-HG N AFF-NomDuDoc.pdf"

-Doc Word : "0-CLIENT-DPT-HG N AFF-fiche de suivi"


Via des InputBox je récupère "DPT" / "CLIENT" / "HG N AFF" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
DPT = InputBox("Entrez le département du dossier :", "Saisie département")
client = InputBox("Entrez le nom du client :", "Saisie client")
nbdossier = InputBox("Entrez le numéro de dossier :", "Saisie n°dossier")
Mon objectif est de remplacer dans toutes l'arborescence (du premier dossier jusqu'au dernier fichier du sous sous sous... sous dossier) le nom de chaque fichier et chaque dossier en changeant à chaque fois ces trois valeurs.

Pour les fichiers je comptais utiliser ces 3 trois lignes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
renamed = Replace(f1, "CLIENT", client)
renamed = Replace(f1, "DPT", DPT)
renamed = Replace(f1, "HG N AFF", nbdossier)
Avez vous une idée pour boucler sur tout les fichiers de cette arborescence ainsi que pour renommer le nom des dossiers à chaque fois ?

Merci d'avance