Enreistrer sous

[Anita]

Un grand bonjour à tout le forum.

Ma question porte sur le nom de fichier pour un enregistrement.

Un classeur sert plusieurs fois et doit être enregistrer sous un nom différent. Est-il possible de récupere un nom contenu en cellule A1 de la feuiile2 pour composer automatiquement le nom de ma sauvegarde?

Ex : en A1 = Toto
le nom de ma sauvegarde sera : Dossier Toto.xls
Toutes les sauvegardes commenceront par: Dossier

Un bien grand merci pour m'avoir lu et aidée.
Bonne journée

 

[dg62]

Bonjour anita

Un bout de code à coller sur un bouton
il ne reste qu'a modifier le chemin dans le code.

Sub Enregistre()
Dim nomfic As String
nomfic = Worksheets(2).Range('A1').Value


    ActiveWorkbook.SaveAs Filename:='G:\\archives\\dossier ' & nomfic & '.xls', FileFormat:= _
        xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

 

[Anita]

Merci DG62 pour ta réponse rapide,
je n'aurais vraiment pas trouvé...mais j ai compris ton code.
J'essayes de suite, c a va drolement me simplifier l'existence en n'écrasant plus mes fichiers :kiss: