XL 2010 renommer fichiers d'un répertoire en majuscules

[jeanmi]

Bonjour à tous,

Je recherche comment pouvoir renommer des fichiers d'un répertoire en majuscules,

je m'explique :

Mon fichier est nommé " A titi.xls" ou " a titi.avi"
Je souhaiterais qu'il soit renommer "A TITI" avec en plus " VUE" et l'extension qu'il avait avant d'être renommé"

Merci pour vos réponses

Cordialement

 

[Compte Supprimé 979]

Salut Jeanmi,

Voici un code possible

Sub RenommerMajuscule()
  Dim sFic As String, sExt As String, sPath As String
  Dim sNewFic As String
  ' Chemin des fichiers
  sPath = "D:\Excel-Downloads\JeanMi\"
  ' 1er fichier
  sFic = Dir(sPath & "*.*")
  ' Tant qu'il y a des fichiers
  Do While sFic <> ""
    ' Récupérer l'extension
    sExt = Mid(sFic, InStrRev(sFic, "."))
    ' Nouveau nom en majuscule + vue
    sNewFic = UCase(Left(sFic, InStrRev(sFic, ".") - 1)) & " VUE" & sExt
    ' Renommer le fichier
    Name sPath & sFic As sPath & sNewFic
    ' Prochain fichier
    sFic = Dir
  Loop
End Sub

@+

 

[jeanmi]

Bonjour @BrunoM45, Bonjour à tous

Merci pour cette réponse très rapide et qui fonctionne comme une formule 1.

cordialement

 

[jeanmi]

re bonjour,

juste une petite question supplémentaire, par erreur j'ai lancer la procédure deux fois, et la mes fichier on donc deux fois vue qui est dans le nom initial.
est-il possible de palier à cette erreur, donc même si l'on lance plusieurs fois il n'y à qu'une fois vue après le nom.

cordialement

 

[Compte Supprimé 979]

Salut JeanMi,

Désolé, je n'avais pas testé cette possibilité effectivement

Voici le code modifié que tu peux faire tourner autant de fois que tu veux

Sub RenommerMajuscule()
  Dim sFic As String, sExt As String, sPath As String
  Dim sNewFic As String
  ' Chemin des fichiers
  sPath = "D:\Excel-Downloads\JeanMi\"
  sPath = "D:\Users\PetitDou\Documents\Mes Docs EXCEL\_Excel-Pratique\"
  ' 1er fichier
  sFic = Dir(sPath & "*.*")
  ' Tant qu'il y a des fichiers
  Do While sFic <> ""
    ' Récupérer l'extension
    sExt = Mid(sFic, InStrRev(sFic, "."))
    ' Nouveau nom en majuscule + vue
    If InStr(1, sFic, "VUE") = 0 Then
      sNewFic = UCase(Left(sFic, InStrRev(sFic, ".") - 1)) & " VUE" & sExt
    Else
      ' A mettre en commentaire après traitement
      ' Permet de remplacer le 2 fois VUE par une seul
      sNewFic = Replace(sFic, " VUE VUE", " VUE")
    End If
    ' Renommer le fichier
    Name sPath & sFic As sPath & sNewFic
    ' Prochain fichier
    sFic = Dir
  Loop
End Sub

@+

 

[jeanmi]

Salut JeanMi,

Désolé, je n'avais pas testé cette possibilité effectivement

Voici le code modifié que tu peux faire tourner autant de fois que tu veux

Sub RenommerMajuscule()
  Dim sFic As String, sExt As String, sPath As String
  Dim sNewFic As String
  ' Chemin des fichiers
  sPath = "D:\Excel-Downloads\JeanMi\"
  sPath = "D:\Users\PetitDou\Documents\Mes Docs EXCEL\_Excel-Pratique\"
  ' 1er fichier
  sFic = Dir(sPath & "*.*")
  ' Tant qu'il y a des fichiers
  Do While sFic <> ""
    ' Récupérer l'extension
    sExt = Mid(sFic, InStrRev(sFic, "."))
    ' Nouveau nom en majuscule + vue
    If InStr(1, sFic, "VUE") = 0 Then
      sNewFic = UCase(Left(sFic, InStrRev(sFic, ".") - 1)) & " VUE" & sExt
    Else
      ' A mettre en commentaire après traitement
      ' Permet de remplacer le 2 fois VUE par une seul
      sNewFic = Replace(sFic, " VUE VUE", " VUE")
    End If
    ' Renommer le fichier
    Name sPath & sFic As sPath & sNewFic
    ' Prochain fichier
    sFic = Dir
  Loop
End Sub

@+

Bonjour @BrunoM45 , bonjour à tous,

Merci pour le code qui fonctionne très bien.
C'est moi qui suis désolé d'avoir demandé un petit plus qui a était révélé par une erreur de manipulation de ma part.
ça fonctionne à merveille.

Bien cordialement

 

[jeanmi]

Salut JeanMi,

Désolé, je n'avais pas testé cette possibilité effectivement

Voici le code modifié que tu peux faire tourner autant de fois que tu veux

Sub RenommerMajuscule()
  Dim sFic As String, sExt As String, sPath As String
  Dim sNewFic As String
  ' Chemin des fichiers
  sPath = "D:\Excel-Downloads\JeanMi\"
  sPath = "D:\Users\PetitDou\Documents\Mes Docs EXCEL\_Excel-Pratique\"
  ' 1er fichier
  sFic = Dir(sPath & "*.*")
  ' Tant qu'il y a des fichiers
  Do While sFic <> ""
    ' Récupérer l'extension
    sExt = Mid(sFic, InStrRev(sFic, "."))
    ' Nouveau nom en majuscule + vue
    If InStr(1, sFic, "VUE") = 0 Then
      sNewFic = UCase(Left(sFic, InStrRev(sFic, ".") - 1)) & " VUE" & sExt
    Else
      ' A mettre en commentaire après traitement
      ' Permet de remplacer le 2 fois VUE par une seul
      sNewFic = Replace(sFic, " VUE VUE", " VUE")
    End If
    ' Renommer le fichier
    Name sPath & sFic As sPath & sNewFic
    ' Prochain fichier
    sFic = Dir
  Loop
End Sub

@+

re bonjour @BrunoM45

Encore un petit plus, je vient d'avoir le cas ou après traitement , qui fonctionne bien, j'ai modifier le nom d'un de mes fichiers car il y avait une erreur dans le texte, modification en minuscule.

Est là lorsque je relance la procédure, pas de pb sauf que les minuscules ne sont pas transformées en majuscules.
y a t-il un solution à ce cas ?

Merci pour la réponse.
Bien cordialement

 

[Compte Supprimé 979]

Re,
Vous avez modifié le nom du fichier, il faut donc enlever le terme "VUE" sinon à quoi ça sert

 

[jeanmi]

Re,
Vous avez modifié le nom du fichier, il faut donc enlever le terme "VUE" sinon à quoi ça sert

re
et oui tous simplement, il faut que je stop. le cerveau ne suis plus.
Merci
Bien cordialement