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

Signaler
Messages postés
23
Date d'inscription
lundi 30 octobre 2017
Statut
Membre
Dernière intervention
26 mars 2019
-
Messages postés
23
Date d'inscription
lundi 30 octobre 2017
Statut
Membre
Dernière intervention
26 mars 2019
-
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

Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 juillet 2020
532
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 61974 internautes nous ont dit merci ce mois-ci

Messages postés
23
Date d'inscription
lundi 30 octobre 2017
Statut
Membre
Dernière intervention
26 mars 2019

Super tout fonctionne à merveille,

Je te remercie pour ton aide
Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
9 juillet 2020
532
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
Messages postés
23
Date d'inscription
lundi 30 octobre 2017
Statut
Membre
Dernière intervention
26 mars 2019

Merci cs_Le Pivert, ton fichier fonctionne bien

Cependant j'ai plus de données dans mon tableau que je n'ai d'image, du coup dès que Excel tombe sur une ligne qui ne correspond à aucun fichier, il me renvoi l'erreur : "erreur 53, fichier introuvable"

Quel code il me faut ajouter pour dire d'ignorer les fichier inexistant ?

Merci beaucoup pour ta réactivité