Sauvegarde par Macro

[ELT]

Je souhaite réaliser une sauvegarde au travers d'une macro dont le nom se trouve dans une cellule
J'ai ecris la macro suivante mais impossible de faire remonter le contenu de la zone A1 comme nom du nouveau fichier

Sub sauvegarde()
'
' sauvegarde Macro
' Macro enregistrée le 10/03/2003 par Eric
'

ChDir "C:\DOCUMENTS\CLIENTS\Creuzet"
ActiveWorkbook.SaveAs Filename:="C:\DOCUMENTS\CLIENTS\CRZ\Range("A1")", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Quelqu'un a t'il une idée pour m'aider

Merci d'avance

 

[@Christophe@]

Bonjour

J'ai pas trop le temps d'éssayer, mais teste ceci

Sub Sauvegarde()
Dim Nom as string

Nom = Range("A1").value

Activeworkbook.saveAs Filename:="C:\......\" & Nom

End sub

Pas besion du reste que tu as introduit,

@Christophe@

 

[ELT]

Merci pour la réponse et ci joint pour les autres la macro autoexecutable de sauvegarde sur la base d'un compteur

Private Sub Workbook_Open()
Dim Compteur As String
Compteur = Range("A1").Value
Range("A1").Value = Compteur + 1

Dim Nom As String

Nom = Range("A1").Value

ActiveWorkbook.SaveAs Filename:="C:\DOCUMENTS\CLIENTS\" & Nom

End Sub