J'ai un répertoire qui contient plusieurs fichiers *.jpg . Dans un fichier
excel j'ai une liste de ces nom de fichiers et dans l'autre colonne ses
nouveaux noms de fichier.
Comment je pourrais renommer ces fichiers dans son répertoire.(Excel 2003)
Merci
Rick
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
Bonjour,
Sub RenommeMassif() Dim derniereligne As Long, i As Long derniereligne = Range("a65536").End(xlUp).Row 'Adapter le chemin ChDir "c:copie" 'Anciens noms en colonne A en partant de A1 'Nouveaux noms en colonne b en partant de b1 'Cells(noligne,nocolonne) For i = 1 To derniereligne Name Cells(i, 1).Value As Cells(i, 2).Value Next End Sub
"richard paquette" <richard a écrit dans le message de news:
J'ai un répertoire qui contient plusieurs fichiers *.jpg . Dans un fichier
excel j'ai une liste de ces nom de fichiers et dans l'autre colonne ses
nouveaux noms de fichier. Comment je pourrais renommer ces fichiers dans son répertoire.(Excel 2003)
Merci Rick
Bonjour,
Sub RenommeMassif()
Dim derniereligne As Long, i As Long
derniereligne = Range("a65536").End(xlUp).Row
'Adapter le chemin
ChDir "c:copie"
'Anciens noms en colonne A en partant de A1
'Nouveaux noms en colonne b en partant de b1
'Cells(noligne,nocolonne)
For i = 1 To derniereligne
Name Cells(i, 1).Value As Cells(i, 2).Value
Next
End Sub
"richard paquette" <richard paquette@discussions.microsoft.com> a
écrit dans le message de
news:2EF91CC7-F02B-47C2-A967-5FA88B3FBC7E@microsoft.com...
J'ai un répertoire qui contient plusieurs fichiers *.jpg . Dans un
fichier
excel j'ai une liste de ces nom de fichiers et dans l'autre colonne
ses
nouveaux noms de fichier.
Comment je pourrais renommer ces fichiers dans son répertoire.(Excel
2003)
Sub RenommeMassif() Dim derniereligne As Long, i As Long derniereligne = Range("a65536").End(xlUp).Row 'Adapter le chemin ChDir "c:copie" 'Anciens noms en colonne A en partant de A1 'Nouveaux noms en colonne b en partant de b1 'Cells(noligne,nocolonne) For i = 1 To derniereligne Name Cells(i, 1).Value As Cells(i, 2).Value Next End Sub
"richard paquette" <richard a écrit dans le message de news:
J'ai un répertoire qui contient plusieurs fichiers *.jpg . Dans un fichier
excel j'ai une liste de ces nom de fichiers et dans l'autre colonne ses
nouveaux noms de fichier. Comment je pourrais renommer ces fichiers dans son répertoire.(Excel 2003)
