Rapport de message :*
 

Re: Modification de nom de dossier

Titre du sujet : Re: Modification de nom de dossier
par Eric le 23/12/2017 16:25:01

Bonjour à Toutes et tous

Bonjour olindo, Guy

 

Tu pourrais essayer ce code :

Option Explicit

Sub sauvegarde_supprime_renomme()

Dim fso, FL, FD

Set fso = CreateObject("Scripting.FileSystemObject")
 
ThisWorkbook.SaveAs "D:\Programmation\00_test" & "Classeur1" & ".xls "  'Sauvergarde du fichier dans dossier temporaire

Kill "D:\Programmation\0_test\Classeur1.xls"          ' destruction du fichier dans ancien dossier
Set FD = fso.GetFolder("D:\Programmation\0_test")
    FD.Name = "000_test"			      ' Nouveau nom du dossier
Set fso = Nothing
Set FL = Nothing
Set FD = Nothing
End Sub

D:\Programmation\00_test\   dossier provisoire

D:\Programmation\0_test\  dossier ancien à renomer

D:\Programmation\000_test\  nouveau nom dossier

Classeur1.xls   nom du fichier

 

A te lire

 

Eric