midou_casa
XLDnaute Nouveau
bonjour tout le monde,
y a t'il moyn pour renommer automatiquement le nom des fichiers d'un dossier avec du code VBA?
y a t'il moyn pour renommer automatiquement le nom des fichiers d'un dossier avec du code VBA?
Name OldName As NewName
Merci MJ13 d'avoir repondu,en fait ,j'ai un dossier qui contient 400 fichiers ,donc je veux un bout de code,qui permet des les rennomer par des chiffres, par exemple,par ordre décroissant.
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"
newname = Cells(1, 1).Value & "\" & Cells(cell.Row, 4) & Mid(cell, 4, Len(cell) - 3)
I = I + 1
Name oldname As newname
Next
End Sub
Sub renomme()
I = 1
For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Rows.Row)
oldname = Cells(1, 1).Value & "\" &cell
'newname = Cells(1, 1).Value & "\" & "temp" & I & ".txt"
newname = Cells(1, 1).Value & "\" & Cells(cell.Row, 3) & Mid(cell, 3, Len(cell) - 3)
I = I + 1
Name oldname As newname
Next
End Sub
Name oldname As newname
Erreur : Fichier introuvable
sans fichier avec la structure de la feuille