[VBA-E][DEBUTANT]Renomer un fichier

Bonjour ,

J'ai un userform dans lequel je liste les fichiers d'un repertoire . J'aimerais que lorsque je clique sur un bouton , je puisse renomer le fichier selectioner dans la listbox en indiquant "-MODIFIER" à la fin du nom du fichier .

Par exemple , si je selectionne "Test.txt" , je clique sur le bouton et ca me change le fichier en "Test-MODIFIER.txt" .

Est-ce possible ? Si oui comment ? :lol:

Merci d'avance.

Regarde Name, dans l'aide. Pour renommer le fichier, tu dois indiquer le chemin. ;)

J'ai trouve la fonction Name xx As xx mais quand je specifie les fichiers il me dit "Fichier introuvable" . J'ai pourtant fait un ChDir pour me mettre dans le bon repertoire . Ca peut venir du fait que je prend un fichier d'une listbox avec un ListBox1.List(ListBox1.ListIndex) ? Je suis un peu bloque la :(

Voila mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton5_Click() Dim Response Dim OldName, NewName Dim st As String st = ListBox1.List(ListBox1.ListIndex) Response = MsgBox("Avez-vous effectuer la mise à jour du fichier : " & ListBox1.List(ListBox1.ListIndex) & " ?", vbYesNo, "Mise à jour") If Response = vbYes Then ChDir ("P:\Blabla\Blabla\" & ListBox2) OldName = ("P:\Blabla\Blabla\" & ListBox2 & st): NewName = ("P:\Blabla\Blabla\" & ListBox2 & st & "-TEST") Name OldName As NewName ' Déplace et renomme le fichier. MsgBox "Modification validée !" Else MsgBox "No" End If End Sub

---

Je precise que P: est un serveur . Ca peut jouer dessus ?

Citation:

---

Envoyé par Tu

J'ai un userform dans lequel je liste les fichiers d'un repertoire

---

Dans ton exemple, tu indique le même chemin pour ton ancien et ton nouveau fichier alors que le répertoire en question vient d'être créé.
En outre, n'oublie pas l'extension. Tu dois mettre

Code:

---

1 2 3

OldName = "CheminDuVieuxFichier\" & LeVieuxFicher.Extension NewName = (CheminDuNouveauFichier\ & NomDuNouveauFichier.Extension) Name OldName As NewName

---

Merci de ta reponse rapide .

Citation:

---

Dans ton exemple, tu indique le même chemin pour ton ancien et ton nouveau fichier alors que le répertoire en question vient d'être créé.

---

Le repertoire est déjà creer et est selectioner par la listbox2 .

Citation:

---

En outre, n'oublie pas l'extension. Tu dois mettre

Code :
OldName = "CheminDuVieuxFichier\" & LeVieuxFicher.Extension
NewName = (CheminDuNouveauFichier\ & NomDuNouveauFichier.Extension)
Name OldName As NewName

---

Le probleme c'est que l'extension peut varier etant donne que je choisis un fichier dans une listbox qui regroupe plusieurs sortes de formats .

Pour être precis , voila ce que je fait :

Jai 2 listbox . Dans la premiere ( listbox2 ) je selectionne un repertoire qui est déjà creer . Dans ce repertoire ce situe plusieurs fichiers que je liste dans la listbox1 . Le but du jeu est de , lorsque je clique sur un bouton , le fichier qui est selectioner en listbox1 soit renomer simplement en ajoutant "-MODIFIE" a la fin du fichier , sans changer l'extension bien sur .

Voila voila :)

Bon, alors quand tu fais ça

Citation:

---

ChDir ("P:\Blabla\Blabla\" & ListBox2)

---

tu demandes à VBA de te situer dans le répertoire "P:\Blabla\Blabla\" & ListBox2". Ok ?
Mais Listbox2 contient-t-il "\" à la fin ? Parce que dans cette ligne

Citation:

---

OldName = ("P:\Blabla\Blabla\" & ListBox2 & st)

---

on pourrait penser qu'il n'y est pas
Affiche la fenêtre Exécution -> Dans l'Editeur VB -> Menu Affichage -> Fenêtre Exécution
Ensuite, ajoute sous la ligne précédente cette ligne

Code:

---

Debug.print OldName & " " & Newname

---

et dis-nous ce que tu obtiens.
Mais je suis certain que tu n'auras pas besoin de nous le dire et que tu vas comprendre ;)

Et voila comment se prendre la tête pour une barre :)

Merci et à bientôt sans doute :)