"enregistrer sous" avec chemin d'acces

[diop]

bonjour le forum j'utilise une macro qui me permet d'enregistrer en fichier en utilisant la valeur qui est dans la cellule v2.
Mais ce que je n'arrive pas à ajouter c'est le chemin d'accès dans lequel le fichier doit etre sauvegargé (par exemple: c\mesdocuments.....)

la macro que j'utilise est celle ci :

Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("B2").Value)


merci de votre aide
@diop

 

[diop]

oui c'est encore moi
je voulais juste dire que j'ai trouvé le code qui est le suivant:

Sub saveas()
Dim vNomfichier As String
vNomfichier = ActiveSheet.Range("v2").Value
Range("v2").Select
Selection.NumberFormat = "@"
Range("v2").Value = ActiveSheet.Name
Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("v2").Value)
ActiveWorkbook.saveas Filename:="P:\DF\mdiop\vnomfichier", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

End Sub


merci et bonne journée à tout le monde