Macro enregistrer et nommer le fichier

[viten]

Bonjour,

Je souhaite une macro qui enregistre une COPIE de mon fichier en le nommant selon ce qu'il y a d'écrit en cellule B6, par exemple.

Merci beaucoup

 

[don_pets]

hello,

une solution :

Dim Chemin As String

Application.ScreenUpdating = False
Chemin = "" ' Ici ton chemin
Nom = "" ' ici le nom de ton fichier ou de la cellule

Sheets("Feuil1").Copy

    With ActiveWorkbook
        .SaveAs Filename:=Chemin & " " & Nom
        .Close
    End With

Enjoy

 

[viten]

Merci beaucoup