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?
Sub renommeBis()
I = 1
For Each cell In Range("A2:A" & Range("A65536").End(xlUp).Rows.Row)
oldname = Cells(1, 1).Value & "\" & cell
'newname = Cells(1, 1).Value & "\" & "temp" & I & ".txt"
If Cells(cell.Row, 3) <> "" Then GoTo suite Else newname = Cells(1, 1).Value & "\" & Cells(cell.Row, 3) & Mid(cell, 4, Len(cell) - 3)
'MsgBox newname
'Stop
suite:
I = I + 1
Name oldname As newname
Next
End Sub
Erreur 75 avec le nouveau code
Erreur d'accès chemin/fichier