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

Résolu/Fermé
xGunner Messages postés 29 Date d'inscription lundi 30 octobre 2017 Statut Membre Dernière intervention 28 janvier 2022 - 30 oct. 2017 à 17:38
xGunner Messages postés 29 Date d'inscription lundi 30 octobre 2017 Statut Membre Dernière intervention 28 janvier 2022 - 31 oct. 2017 à 13:52
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

2 réponses

cs_Le Pivert Messages postés 7823 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 30 septembre 2022 716
Modifié le 31 oct. 2017 à 11:31
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
2
xGunner Messages postés 29 Date d'inscription lundi 30 octobre 2017 Statut Membre Dernière intervention 28 janvier 2022
31 oct. 2017 à 13:52
Super tout fonctionne à merveille,

Je te remercie pour ton aide
0