Erreur accès chemin fichier

Bonjour,

je pense que ce problème revient souvent mais je ne l'ai pas retrouvé dans les forums.

Ce code renomme des fichiers qui sont dans colonne A en colonne B.

Le renommage est bien effectué mais le programme s'arrête avec avec une Erreur accès chemin fichier.

Comment faire pour qu'il y ait une boucle et qu'elle s'arrête quand tous les fichiers ont été passés

Sub Rename()

    Dim LastRow As Long
    Dim j As Long
    Dim AncienNom As String, NouveauNom As String

    LastRow = Range("A" & Rows.Count).End(xlDown).Row

    For j = 1 To LastRow

    AncienNom = Range("A" & j)
    NouveauNom = Range("B" & j)
    Name AncienNom As NouveauNom

    Next j

    Application.StatusBar = "Traitement terminé."
    MsgBox ("Traitement terminé")

    End Sub

Merci à tous

Hola

a/ Nomme toujours a quelle feuille tu veux aller

Worksheets("Feuil1").select

Cèst dans cette feuille que s'applique ton code.. sinon Excel peut se perdre

b/ Il y a une erreur dans la definition de la "longueur" de ligne pour ta boucle

Pour ma part j'utilise cette (vieille) definition

LastRow = Range("A65536").End(xlUp).Row

Cela compte les cellules non vide sur 65536 lignes...

c/ supprime la variable AncienNom

d/supprime le Name as.... qui est valable pour des redefinitions d'acces disques et fichiers

e/ ta boucle devient

For j = 1 To LastRow

NouveauNom = Range("B" & j)

Range("A" & j).Value = NouveauNom

Next j

D'autres gurus bien plus forts que moi te proposerons certainement d'autres solutions

Celle ci fonctionne

Bert

Je pense meme que c'a pourrait aussi le faire ainsi

For j = 1 To LastRow

Range("B" & j).Value = Range("A" & j).Value

Next j

Bert

Merci Bert,

c'est ce que je voulais.

Passe un bon week end.