Renommer des fichiers à l'aide d'une base Excel Macro / Logiciel
Résolu
xGunner
Messages postés
30
Statut
Membre
-
xGunner Messages postés 30 Statut Membre -
xGunner Messages postés 30 Statut Membre -
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
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
A voir également:
- Renommer des fichiers en masse avec excel
- Renommer des fichiers en masse - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Renommer son iphone - Guide
2 réponses
Changer le code comme ceci:
@+ Le Pivert
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
Je te remercie pour ton aide