Renommer un dossier

[RONIBO]

Bonjour le forum,

Savez-vous comment renommer un dossier en vba?

 

[Pierrot93]

Re : Renommer un dossier

Bonjour,

regarde ce code :
https://www.excel-downloads.com/threads/renommer-dossier-en-masse.220776/

bon après midi
@+

 

[RONIBO]

Re : Renommer un dossier

Salut Pierrot93,

Merci pour ton aide, en testant j'ai rencontré un autre problème, j'ai une erreur lorsque de renommer un dossier qui est en cours d'utilisation.

Tu as une solution à ce problème ?

 

[herve62]

Re : Renommer un dossier

Bonsoir
en testant ce style de SUB ? >

[COLOR=#0000FF]Option Explicit
Option Compare Text

Sub renommerClasseur_V02()
Dim Classeur As String, Chemin As String
Dim Fso As Object

Classeur = Application.GetOpenFilename('Fichiers Excel (*.xls), *.xls')
If Classeur = 'Faux' Then Exit Sub

Set Fso = CreateObject('Scripting.FileSystemObject')
'MsgBox Fso.GetFile(Classeur).Name

If Fso.GetFile(Classeur).Name = 'toto.xls' Then
Chemin = Fso.GetFile(Classeur).ParentFolder
Name Classeur As Chemin & '\\\\\\\\nouveauNom.xls'
End If
End Sub[/COLOR]

A+

PS de 2013
J'espère que ton appli pour tes Loyers tourne bien maintenant ... après 2 ans ?

 

[RONIBO]

Re : Renommer un dossier

Salut hervé,

Merci pour le code mais je souhaite renommer un dossier et non un classeur 🙁

PS : Oui je m'en sert tous les mois lol

 

[herve62]

Re : Renommer un dossier

Renommer un dossier ???
KESAKO ? un répertoire ?
Ici on est dans Excel pas chez KROSOFT !!

PS : tant mieux , j'ai encore tes fichiers de base

 

[RONIBO]

Re : Renommer un dossier

Lol, je sais bien, pourtant on était bien parti avec le code de pierrot

 

[job75]

Re : Renommer un dossier

Bonjour à tous,

en testant j'ai rencontré un autre problème, j'ai une erreur lorsque de renommer un dossier qui est en cours d'utilisation.

Pour renommer le dossier du fichier où se trouve la macro, il faut avant l'enregistrer dans le dossier "père" :

Sub Renomme_Dossier()
Dim NouveauNom$, Dossier$, DossierPère$
NouveauNom$ = "Mon dossier" 'à adapter
With ThisWorkbook
  Dossier = .Path
  DossierPère = Left(Dossier, InStrRev(Dossier, "\"))
  .SaveAs DossierPère & .Name, .FileFormat
End With
Name Dossier As DossierPère & NouveauNom
End Sub

A+

 

[job75]

Re : Renommer un dossier

Re,

Avec un 2ème enregistrement on peut "tuer" le fichier créé dans le dossier "père" :

Sub Renomme_Dossier1()
Dim NouveauNom$, Dossier$, DossierPère$
NouveauNom$ = "Mon dossier" 'à adapter
With ThisWorkbook
  Dossier = .Path
  DossierPère = Left(Dossier, InStrRev(Dossier, "\"))
  Application.DisplayAlerts = False
  .SaveAs DossierPère & .Name, .FileFormat
  Name Dossier As DossierPère & NouveauNom
  .SaveAs DossierPère & NouveauNom & "\" & .Name, .FileFormat
  Kill DossierPère & .Name
End With
End Sub

A+