Renommer un fichier Excel

Bonjour le forum,

J'ai beau chercher un code me permettant de renommer un fichier excel il n'y a rien a faire... Je n'arrive pas a le faire fonctionner !

Voici le code que j'ai en ma possession :

Dim OldName, NewName
OldName = "Test.xlsx": NewName = "Test2.xlsx"    ' redéfini le nom du fichier.
Name OldName As NewName    ' Rename file.

Erreur qui en résulte : Erreur d'exécution '53' : Fichier Introuvable

Dim OldName, NewName
OldName = "C:\Bureau\Test.xlsx": NewName = "C:\Bureau\Test2.xlsx"
Name OldName As NewName    ' Affecte le nouveau chemin ainsi que le nouveau nom

La même erreur s'affiche... .

Quelqu'un peut il m'aider à trouver ce qui ne va pas... Je bloque sur ce simple code...

Merci beaucoup !

Précision :

Le code fonctionne lorsque le fichier visé est fermé.

Ma situation est la suivante : je souhaite changer via un code VBA, le nom du fichier actuellement OUVERT.

Quelqu'un a une solution ? :/

Après moulte recherches sur Internet il s'avère qu'il est impossible de renommer un fichier ouvert... Ce qui est au fond complètement logique. J'ai néanmoins trouvé une astuce pour contourner ce problème :

On créer une sauvegarde du fichier en question et on la nomme comme on le souhaite

On ouvre cette sauvegarde

On ferme l'ancien fichier

On supprime l'ancien fichier

Bonne journée à tous !