Renommer fichier Excel + word code VBA

Bonjour à tous, j'ai une simple question, je souhaite renommer un fichier Excel via un code VBA ainsi qu'un fichier Word.

Cela fonctionne parfaitement avec les formules suivantes :

1)ActiveWorkbook.SaveAs "FdC" & " " & Range("B6").Value

2)WordDoc.SaveAs "Pour la frappe" & " " & Range("B6").Value

Mon problème étant que j'utilise la fonction Save As qui enregistre les docs or je veux juste renommer les fichiers. Quelles fonctions puis-je utiliser à la place de SaveAs ?

Bonjour,

Pour renommer des fichiers :

CurrentName = "chemin de fichier complet.xlsx"
NewName = "Chemin complet du fichier avec son nouveau nom.xlsx"
Name CurrentName as NewName

Il faut adapter les chemins évidemment.

Cette instruction peut permettre de déplacer des fichiers également.

Cdlt,

Bonjour, je ne souhaite pas partir d'un chemin spécifique car mon fichier peut venir n'importe ou et à un nom différent à chaque fois, je souhaite juste pouvoir le renommer quel que soit le nom qu'il avait avant.

Merci

J'ai ce code qui ne fonctionne pas :

Dim NomFichier As String, NouveauNom As String
NouveauNom = "FdC" & " " & Range("B13").Value
NomFichier = ThisWorkbook.Name
Name NomFichier As NouveauNom

Bonjour,

Vous ne pouvez pas renommer un fichier en cours d'utilisation, autrement que par la méthode saveas.

L'instruction Name As aura un intérêt uniquement pour le fichier Word.

Cdlt,

D'accord, vous m'apprenez quelque chose je ne savais pas.

Merci pour votre aide.