Renommer des fichiers à l'aide d'une base Excel Macro / Logiciel Résolu

Question

Bonjour,

J'ai une feuille Excel avec pour colonnes :
Réf | Réf Fab | Désignation

J'ai un dossier ou des images portent le nom "Réf Fab"

J'aimerai les renommer avec la réf tout court, j'ai donc pensé à utiliser une macro Excel, Cependant n'étant pas connaisseur dans ce langage de programmation, je me tourne vers vous =)

Je cherche donc, soit une macro qui me permettrait de modifier le nom des fichiers OU un logiciel capable de renommer à l'aide d'une base Excel

Merci d'avance

cs_Le Pivert · Accepted Answer

Changer le code comme ceci:

Private Sub CommandButton1_Click()
Dim nom As String
Dim nouveau As String
Dim chemin As String
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long
Dim NomFich As String
Dim existe As Boolean
chemin = ThisWorkbook.Path & "\Dossierimages\"
 Set FL1 = Worksheets("Feuil1") 'adapter le nom de la feuille
    NoCol = 2 'lecture de la colonne B
     For NoLig = 2 To Range("B" & Rows.Count).End(xlUp).Row
        FL1.Cells(NoLig, NoCol).Select
   nom = FL1.Cells(NoLig, NoCol).Value
      nouveau = FL1.Cells(NoLig, NoCol - 1).Value
      NomFich = chemin & nom & ".jpg"
     existe = ExisteFichier(NomFich) 'on vérifie que le fichier existe
    If existe = True Then
Name chemin & nom & ".jpg" As chemin & nouveau & ".jpg" 'adapter l'extension
     Else
     End If
      Next
    Set FL1 = Nothing
End Sub
Function ExisteFichier(nomfic As String) As Boolean
ExisteFichier = (Dir(nomfic) <> "")
End Function 
 
@+ Le Pivert

cs_Le Pivert · Answer

Bonjour,

Voici un exemple en vba. Il faudra activer les macros dans Option Excel. Le dossier image doit être mis dans le même dossier que le classeur et se nommer: Dossierimages
Sinon il faut corriger la macro avec le nom de votre dossier image. L'exemple est fait avec des images Jpg, à adapter si l'extension est différente.

http://www.cjoint.com/c/GJErxrkiBNQ 

Il faut dezipper le zip
Voilà
 
@+ Le Pivert

Renommer des fichiers à l'aide d'une base Excel Macro / Logiciel

2 réponses

Discussions similaires

Newsletters