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

[SfJ5Rpw8]

tes fichiers n'ont pas d'extensions ?

quel est le nom de tes fichiers ? ta façon de les anonymiser ne nous aide pas .. !! s'appelle-t-il fichierAncienNom ou AncienNom !

[sophia1989]

mes fichiers contenus dans le répertoire se nomment a.docx et e.xlsx
les mêmes noms figurent dans la colonne anciennom
et dans l'autre colonne nouveaunom figurent les noms b.docx et f.xlsx

ce sont mes fichiers contenus dans un même répertoire

et là c'est ma liste excel avec les nouveaux noms avec lesquels je veux renommer les fichiers

[SfJ5Rpw8]

et donc on ne voit pas les noms de tes fichiers dans les message box ?

tu n'as pas l'impression de commencer une ligne trop haut pour ton action de renommer ....? revoit la façon dont tu calcule ta plage initiale ... remplace le .Cells(1,1) par .Cells(2,1) pour commencer en ligne 2..

[sophia1989]

le msgbox s'exécute correctement
mais l'instruction Name ne fonctionne toujours pas

[SfJ5Rpw8]

J'aurais quand même bien voulu voir le contenu de ton message box ...? quand tu dis correct ... est tu sur qu'il ne manque pas un séparateur : \ ?

[sophia1989]

[SfJ5Rpw8]

Eu... oui .. les messages box qui je te rappelle ne sont la que pour t'aider au débeuggage en vérifiant les noms de fichiers , semblent .. bien donner un résultat valable ....

et donc tu peu réactiver ta ligne "...name..."

[sophia1989]

j'obtiens toujours la même erreur

[SfJ5Rpw8]

Le fichier word est-il renommé ?


pour le fichier excel .. revoit tes extensions ... l'extension à utiliser est xlsx et pas xslx ...! comme sur ta copie d'écran du post 13..

[sophia1989]

non mon fichier doc n'est pas renommé
j'ai rectifié l'extension du fichier xlsx c'était une faute de frappe
ça ne fonctionne toujours pas
quand j'ai cherché sur internet l'erreur d'exécution 53 j'ai trouvé que ça pouvait être le problème d'une dll mais ils ne disent pas de quelle dll il s'agit