Enregistrer un fichier sous en tant que nom d'origine

[bichon]

Helo a tous le forum et ses participant
voila mon problème est minime (c'est un des dernier apres je vous embèterait plus lol )
j'ouvre un classeur a partir d'une listbox celui ci porte deja un nom
je fais des modifs dans ce classeur et j'aimerai l'enregistrer sous dans un autre dossier
mais je voudrais qu'il garde son nom d'origine voila
voici mon code pour l'instant je lui attribue ce meme nom
mais j'aimerai que dans ce code je n'ai pas a mettre ce nom
j'ai un bouton controle "Enregistrer et quitter en sauvegardant"
voila
au secours svp

' Bouton Enregistrer et quitter

Private Sub CommandButton21_Click()
Dim Formulaire As UserForm
Dim NomFic As String
Dim Rep As String
NomFic = "nom d'origine.xls" ' cette ligne j'aimerai la supprimer
Application.DisplayAlerts = False
MsgBox "Merci le fichier a été enregistré dans : " & CurDir("F:")
ActiveWorkbook.SaveAs FileName:=CurDir("F:") & "\" & NomFic ' et arranger celle ci mais comment?
Application.Quit
End Sub

merci d'anvance enormement a ceux qui me repondront

bichon

 

[schmail]

ReBonsoir Bichon et le forum

Je pense qu'avec ces rectif cela devrait le faire...@+

Private Sub CommandButton21_Click()
Dim Formulaire As UserForm
Dim NomFic As String
Dim Rep As String
NomFic = ActiveWorkbook.Name
Application.DisplayAlerts = False
MsgBox "Merci le fichier a été enregistré dans : " & CurDir("F:")
ActiveWorkbook.SaveAs Filename:="F:\" & NomFich, FileFormat:=xlNormal
Application.Quit
End Sub

 

[bichon]

ok merci beaucoup schmail