Macro VBA pour renommer un fichier et l'enregistrer sous un autre dossier

Bonjour,

J'aimerais générer une macro permettant les actions suivantes :

- Renommer un fichier automatiquement à partir d'une donnée figurant dans ce dernier,
- L'enregister sous un dossier spécifique.

L'idéal serait que c'est macro soit rattachée à un bouton de commande.

Auriez-vous une solution à m'apporter ?

Merci par avance !

Bonjour,

Un essai,

Merci pour cette suggestion, mais cela ne fonctionne pas.

J'ai repris votre code en modifiant C:\Users\bryan\Desktop\ par le dossier destinataire de mon choix, mais cela n'a pas fonctionné.

Entre temps, j'ai essayé de bidouiller de mon côté en faisant ceci :

• Création d'un bouton de commande (Contrôle ActiveX) : Je l'ai renommé "NouveauDossier"
• Enregistrement d'une macro : J'ai fait la manip pour enregistrer mon fichier avec un nouveau nom, et dans un dossier destinataire différent du dossier source.
• Association de la macro au bouton de commande

Tout cela a parfaitement fonctionné.

Cependant, j'aurais aimé que mon fichier soit renommé en fonction du contenu de la cellule K2 (par exemple).

Auriez-vous une solution ?

Je vous joins le détail de ma Macro pour la compléter, si cela vous est possible en l'état.

Sub Macro1()
'
' Macro1 Macro
'

'
    ChDir "C:\PRO\Traitement fiches\DOSSIER TEST"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\PRO\Traitement fiches\DOSSIER TEST\NOUVEAU FICHIER.xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Bien à vous.

Chez moi tout fonctionnait bien

Essayez du coup avec ceci,

Sub Macro1()
    f = Worksheets("Feuil1").Cells(2, 11)  'nom de feuille à adapter
    ChDir "C:\PRO\Traitement fiches\DOSSIER TEST"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\PRO\Traitement fiches\DOSSIER TEST\" & f & ".xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Impeccable
Ca renomme bien le fichier avec les données de la cellule

Merci beaucoup, et bonne soirée à vous