Discussion :

[sophia1989]

Bonjour
Je voudrais renommer des fichiers que j'ai dans un répertoire à partir d'une liste qui est sur un fichier excel qui contient dans une colonne les noms des anciens fichiers avec leurs extensions et dans l'autre colonne les noms des nouveaux fichiers avec leurs extensions.

par exemple j'ai un fichier a.doc dans mon répertoire et dans ma liste excel a.doc c'est l'ancien nom et le nouveau nom c'est b.doc. je voudrais renommer ce fichier automatiquement.
merci

[Theze]

Bonjour,

Teste ceci mais adapte auparavant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Dossier As String
 
    'adapter le chemin...
    Dossier = "C:\Dossier\SousDossier\"
 
    'en colonne A de la feuille active à partir de A1
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    'ancien nom en colonne A et nouveau nom en colonne B
    For Each Cel In Plage
 
        'Impératif, les fichiers doivent être fermés !
        Name Dossier & Cel.Value As Dossier & Cel.Offset(, 1).Value
 
    Next Cel
 
End Sub

[sophia1989]

Merci
j'ai essayé ton bout de code mais quand j'éxécute j'obtiens un message d'erreur sur la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name Dossier & Cel.Value As Dossier & Cel.Offset(, 1).Value

Le message d'erreur est le suivant
erreur 53 fichier introuvable
pourtant j'ai bien précisé le chemin où se trouvent mes fichiers

[Theze]

Bonjour,

Les noms des fichiers sont bien en colonne A et les nouveaux noms en colonne B ?
La première ligne (cellules A1 et B1) sont des entêtes ou non ?
Sinon, poste un petit classeur exemple !

[SfJ5Rpw8]

Bonjour,

Merci
j'ai essayé ton bout de code mais quand j'éxécute j'obtiens un message d'erreur sur la ligne:

Name Dossier & Cel.Value As Dossier & Cel.Offset(, 1).Value

contrôle la valeur de tes variables en passant le curseur de la sourie sur Dossier et Cel.Value....

ou tu remplace ta ligne par Message bopx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Dossier & Cel.Value  & vbCrlf & Dossier & Cel.Offset(, 1).Value

[sophia1989]

J'ai essayé d'afficher la valeur de la variable Dossier en utilisant ta ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Dossier & Cel.Value  & vbCrlf & Dossier & Cel.Offset(, 1).Value

çà m'affiche le chemin concaténé au nom de la colonne
çà ne me renomme pas les fichiers

ce que je ne comprends pas c'est pourquoi il n'accède pas aux fichiers que je veux renommer et qui sont contenus dans un même répertoire
je m'explique
j'ai un répertoire nommé fichiers qui contient deux fichiers a.docx et e.xlsx que je veux renommer
j'ai un fichier excel qui contient deux colonnes la première nommée ancien nom qui contient dans ses cellules a.docx et e.xslx
et la deuxième colonne nommée nouveau nom qui contient dans ses cellules b.docx et f.xslx

quand je déclare au sein du programme la variable Dossier comme ceci Dossier = "C:\Users\user\Desktop\fichiers"
et que je l'affiche en utilisant msgbox il m'affiche le chemin uniquement
je voudrais pouvoir récupérer le contenu de la variable pour l'exploiter dans la boucle
je ne sais pas comment faire

[SfJ5Rpw8]

J'ai essayé d'afficher la valeur de la variable Dossier en utilisant ta ligne de code
MsgBox Dossier & Cel.Value & vbCrlf & Dossier & Cel.Offset(, 1).Value

çà m'affiche le chemin concaténé au nom de la colonne
çà ne me renomme pas les fichiers
...

Le but du message box c'est d'afficher le contenu de la concaténation de tes variables afin d'être sur que tu effectue le bon calcul ...

qu'affiche exactement le message box ?

[sophia1989]

le msgbox affiche C:\Users\user\Desktop\fichiersanciennom
C:\Users\user\Desktop\fichiersnouveaunom