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
|
Forums