Affecter un nom de sauvegarde

Voila, je sais pas si c'est possible, mais pour l'application que je suis en train de developper, j'aimerais pouvoir affecter un nom à mon dossier excel en fonction de ce qu'il y a dans les cases.

Par exemple, si plusieurs personnes doivent remplir un meme formulaire, dans la premiere case, ils notent leur nom, dans la deuxieme, ils notent la date, puis remplissent le formulaire.

Ce qui serait super, c'est qu'on puisse sauvegarder le fichier directement sous forme:

"formulairede'Nom de l'utilisateur'faitle'date de creation'"

sans devoir le taper. Peut etre avec une macro???

Merci d'avance!

Nitneuk

La macro va s'exécuter à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim nom_dossier, date_dossier, nom_fichier As Variant

'remplace "Feuil1" par le nom de ta feuille

nom = Sheets("Feuil1").Range("A1").Value

'on change les "/" de la date par "_" pour éviter les erreurs

date_création = Replace(Sheets("Feuil1").Range("B1").Value, "/", "_")

'on compose le nom du fichier

nom_fichier = "Formulaire de " & nom & " fait le " & date_création

On Error Resume Next

'on enregistre le fichier

ActiveWorkbook.SaveAs Filename:= _

nom_fichier & ".xls", FileFormat _

:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

False, CreateBackup:=False

End Sub

J'espère que ça t'aidera