Copier, modifier le nom et coller en vba

Bonsoir,

j'ai un répertoire dans lequel j'ai plusieurs fichiers.
j'aimerais à partir d'un bouton, copier tous les fichiers et les coller dans un autre répertoire (donc bouclé tant que tous les fichiers sont pas encore copiés).
Ensuite le nom du fichier comporte "[" et "]". Exemple "ABCDEFGH[X33].pdf"
j'aimerais une fois le fichier copié, que je récupère le nom du fichier et que je supprime tout ce qui se trouve avant "[" de même que "[" lui même ainsi que "]".
L'objectif c'est de conserver que "X33" comme nom du fichier à la fin
Une fois le nom modifié, je le colle dans le nouveau répertoire.
Et ensuite je répète la même action pour tous les autres fichiers du répertoire.

Mon idée c'est :
- je récupère le nombre de fichier contenu dans un répertoire
- Ensuite je fais une boucle avec "For" par exemple pour copié les fichiers avec comme nombre limite le nombre de fichier contenu dans le dossier
- A chaque bouclage, je récupère le nom du fichier et je supprime certaines choses comme je l'ai expliqué plus haut juste pour conserver ce qui se trouve entre les accolades
- enfin de colle dans le nouveau répertoire et je reboucle à nouveau

Merci par avance pour vos réponses.

En cherchant sur différents forum, j'ai réussi à trouver comment récupérer le nom situé entre les crochets.
Mais maintenant comment puis-je renommer un fichier à partir d'une chaîne de caractères stockée dans une variable ?

C'est bon j'ai trouvé. Pour renommer (à titre d'exemple) :

Code:

---

1 2 3 4 5

Dim X as Integer Fichier = Dir (C:\Users\NOM\Documents\Test\*.*") X = Left(chaine, Instr(1, chaine, "]") -1) & ".pdf" Name "C:\Users\NOM\Documents\Test\" & Fichier As "C:\Users\NOM\Documents\Test\" & X

---

Salut.

L'instruction Name OldName As NewName permet cela. Note tout de même que la suppression du début de OldName risque de supprimer aussi son chemin d'accès. Le code fourni fonctionne donc pour le dossier courant.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub RenameFile(OldName As String) Dim NewName As String Dim Pos As Long   Pos = InStr(OldName, "[") NewName = Replace(OldName, Left(OldName, Pos), "") NewName = Replace(NewName, "]", "") Name OldName As NewName   End Sub

---

Merci pour cette réponse.
J'ai utilisé la fonction Copyfolder pour copier les fichiers d'un dossier vers un autre
Le dossier de destination est amené à changer
L'utilisateur place le chemin du dossier de destination dans une case
Comment puis-je déclarer ça comme argument dans "Copyfoder" et dans Name?

Exemple :

Code:

---

1 2 3 4

Dim Lien As Integer Lien = Worksheets("Feuil1").Range("A2").Value 'Case dans laquelle se trouve le lien Call CopyFolder ("C:\Users\Documents\32A", Lien) Name Lien & Fichier As Lien & w 'Pour reprendre l'exemple de mon précédent com

---

Désolé. Je n'avais pas vu que tu avais déjà trouvé NAME lorsque je t'ai répondu.

Perso, j'utiliserais CopyFolder puis le Rename.

Code:

---

Name Lien & OldName As Lien & NewName

---

Ouais j'avais déjà trouvé le "Name" ^^
Mais j'ai toujours pas trouver la solution à ma dernière question
j'aimerai savoir s'il est possible de stocker un chemin dans une variable et de l'appeler ensuite comme argument dans "Dir" ou "Copyfolder" et Name par exemple
Dans le style :

Code:

---

1 2 3 4

Lien = C:\Users\Dossier1 Fichier = Dir(Lien) CopyFolder = (Lien, "C:\Users\Dossier1")

---

Je t'ai montré un cas d'utilisation dans ma dernière réponse. Là où tu utilises une chaine "en dur", tu peux utiliser une variable qui contient cette chaine (Tu l'as d'ailleurs fait dans un tes codes avec Lien)

Merci. Avec ton aide j'y suis arrivé !