Bonjour à tous,
Je souhaiterais adapter ce code trouvé sur ce forum ici :
:
Je souhaiterais renommer mes fichiers non pas ent tempn.txt mais par rapport à une condition qui sera une équivalence de contenus de deux cellules. Explications :
Après avoir executé la 1ère macro du code ci-dessous (allègement du code cité précédemment), le nom des fichiers de mon dossier se trouvent dans la colonne A :
Je souhaiterais renommer mes fichiers suivant la condition suivante :
Si la valeur d'une cellule dans la colonne A est égale à la valeur d'une cellule dans la colonne AC alors renommer le fichier correspondant avec la valeur de la cellule de la même ligne mais dans la colonne N (qui elle ne contient pas d'extentsion de fichier qui est toujours .jpg).
Exemple :
Par rapport au informations précédentes les noms de fichiers dans mon répertoire prennent les valeurs suivantes :
Voilà, j'espère avoir été assez explicite pour que vous puissiez m'aider.
D'avance, je vous remercie.
Cordialement.
Dupond987
Je souhaiterais adapter ce code trouvé sur ce forum ici :
HTML:
http://www.excel-downloads.com/forum/126880-renommer-les-noms-de-fichiers-dun-rep-automatiquement.html
Code:
Sub ListeFichiers_rech()
'CbernardT http://www.excel-downloads.com/forum...e-fichier.html
'Application.Goto Reference:="zae"
'Selection.ClearContents
Range("A1").Select
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
'Chemin = ThisWorkbook.Path
Chemin = ActiveSheet.Range("A1").Value 'Sheets("paramètrage").Range("b5").Value
'Chemin = "c:\"
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers
Range("a2").Select
I = 2
'Stop
For Each Fichier In Dossier.Files
'Cells(I, 1) = Fichier.Name ' Nom du fichier
'Cells(I, 2) = Fichier.DateCreated ' Date dernière modification
Cells(I, 1).Formula = Fichier.Path
Cells(I, 2).Formula = Fichier.Name
Cells(I, 3).Formula = Fichier.Size
Cells(I, 4).Formula = Fichier.Type
Cells(I, 5).Formula = Fichier.DateCreated
Cells(I, 6).Formula = Fichier.DateLastAccessed
Cells(I, 7).Formula = Fichier.DateLastModified
'Cells(I, 8).Formula = Fichier.ParentFolder
I = I + 1
Next
End Sub
Sub renomme()
I = 1
For Each cell In Range("A2:A" & Range("A65536").End(xlUp).Rows.Row)
oldname = cell
newname = Cells(1, 1).Value & "\" & "temp" & I & ".txt"
I = I + 1
Name oldname As newname
Next
End Sub
Je souhaiterais renommer mes fichiers non pas ent tempn.txt mais par rapport à une condition qui sera une équivalence de contenus de deux cellules. Explications :
Après avoir executé la 1ère macro du code ci-dessous (allègement du code cité précédemment), le nom des fichiers de mon dossier se trouvent dans la colonne A :
Code:
Sub ListeFichiers_rech()
'CbernardT http://www.excel-downloads.com/forum...e-fichier.html
Range("A1").Select
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = ActiveSheet.Range("A1").Value 'Sheets("paramètrage").Range("b5").Value
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers
Range("A2").Select
I = 2
For Each Fichier In Dossier.Files
Cells(I, 1).Formula = Fichier.Name
I = I + 1
Next
End Sub
Sub renomme()
Je souhaiterais renommer mes fichiers suivant la condition suivante :
Si la valeur d'une cellule dans la colonne A est égale à la valeur d'une cellule dans la colonne AC alors renommer le fichier correspondant avec la valeur de la cellule de la même ligne mais dans la colonne N (qui elle ne contient pas d'extentsion de fichier qui est toujours .jpg).
Exemple :
Colonne A----------Colonne N----------Colonne AC
C1080.JPG---------0503DATA0113------C1660.jpg
C1166.jpg---------0505DATA0004------HC480003.jpg
C129702.JPG------ 0503DATA0231------C2637.jpg
C129703.JPG------0503DATA0232-------C1080.jpg
C1345.JPG---------0505DATA0002------C1356.jpg
C1355.JPG---------0503DATA0287------C129702.jpg
C1356.JPG---------0503DATAN0288-----C2634.jpg
Par rapport au informations précédentes les noms de fichiers dans mon répertoire prennent les valeurs suivantes :
Le nom de fichier C1080.JPG devient 0503DATA0232.JPG (Valeur de la cellule de la colonne N sur la même ligne que la valeur de la cellule de la colonne AC). Mais ne devient pas 0503DATA0113.JPG.
Le nom de fichier C129702.JPG devient 0503DATA0287.JPG. Mais ne devient pas 0503DATA0231.JPG.
Le nom de fichier C1356.JPG devient 0505DATA0002.JPG. Mais ne devient pas 0503DATAN0288.JPG.
Voilà, j'espère avoir été assez explicite pour que vous puissiez m'aider.
D'avance, je vous remercie.
Cordialement.
Dupond987