Discussion :

[schapl]

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.

[schapl]

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 ?

[schapl]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[schapl]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Name Lien & OldName As Lien & NewName

[schapl]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Lien = C:\Users\Dossier1
Fichier = Dir(Lien)
CopyFolder = (Lien, "C:\Users\Dossier1")

[Pierre Fauconnier]

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)

[schapl]

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