Macro enregistrement

Bonjour,

je vous exprime mon problème.

Je souhaite mettre en place un macro pour pouvoir enregistrer mon fichier excel mais de la manière suivante:

• chemin de destination prédéfini (ca c'est ok)
• le nom du fichier déterminé par une ou deux cellules de mon tableur.

Sub Démarrage_Nouveau_Chiffrage()

'

' Démarrage_Nouveau_Chiffrage Macro

'

'

ChDir "C:\Users\dcrep\Desktop\Projet ACT\Nouveau dossier"

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\dcrep\Desktop\Projet ACT\Nouveau dossier\&Cells(2,2).xlsm", FileFormat

:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

J'ai essayé de mettre B2 mais rien ne change.

Merci d'avance pour votre aide.

Bonsoir,

Sub Démarrage_Nouveau_Chiffrage()
    Dim chF$
    chF = "C:\Users\dcrep\Desktop\Projet ACT\Nouveau dossier\" _
     & ActiveSheet.Cells(2, 2) & ".xlsm"
    ActiveWorkbook.SaveAs chF, xlOpenXMLWorkbookMacroEnabled
End Sub

Cordialement.

Merci MFerrand ça fonctionne super bien