Enregistrer sous VBA

Bonjour,

Je souhaiterais enregistrer sous automatiquement un fichier mais qu'il se renomme avec un mot fixe et avec un numéro dans une cellule qui est variable, je m'explique,

Mon fichier de base s'appelle "FICHIER" une fois la macro lancer je souhaiterais qu'il s'enregistre dans "G:\DOCUMENT" et qu'il soit nommé "NOUVEAU - (Cellule D5)"

Et qu'il s'enregistre en .xlsx

J'espère m'être bien exprimé

En vous remerciant pour votre aide

Cordialement

Bonjour,

Un essai à placer dans le module "ThisWorkbook" de l'éditeur VBA :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.EnableEvents = False 'Évite que l'enregistrement du fichier ne relance en boucle cette macro
SaveAsUI = False: Cancel = True
ThisWorkbook.SaveAs Filename:="G:\DOCUMENT\NOUVEAU - " & Sheets("NomFeuille").Range("D5"), FileFormat:=51
Application.EnableEvents = True

End Sub

PS : le nom de l'onglet contenant la cellule D5 est à adapter, et il faut aussi vérifier que le chemin est valide...

Merci beaucoup !!!

Elodie11 a écrit :

Merci beaucoup !!!

J'en déduis que ça fonctionne (j'en suis moi même surpris !)