Save as avec path

Bonjour.

J'ai une macro de sauvegarde qui va chercher la valeur d'une cellule (D7) pour sauvegarder le fichier XSLX.

Il me manque la portion pour que l'utilisateur spécifie l'emplacement du fichier.

Voici mon code:

Sub sauvegarde()

Dim wbstring As String

wbstring = ActiveWorkbook.Sheets("Remplir").Range("d7").Value
ActiveWorkbook.SaveAs Filename:=wbstring

End Function

MErci de votre support .

Bonsoir,

ci-dessous une proposition :

Sub sauvegarde()

    Dim wbstring As String

    wbstring = emplacement: If wbstring = Empty Then MsgBox "aucun emplacement choisi": Exit Sub
    wbstring = wbstring & ActiveWorkbook.Sheets("Remplir").Range("d7").Value
    ActiveWorkbook.SaveAs Filename:=wbstring

End Sub

Function emplacement() As String
    Dim dossier As Object, item As Object

    emplacement = Empty
    Set dossier = CreateObject("shell.application").BrowseForFolder(0, "Choisir votre emplacement", 0, "")
    If dossier Is Nothing Then Exit Function
    For Each item In dossier.ParentFolder.items
        If item.Name = dossier.Title Then emplacement = item.Path & "\": Exit For
    Next item

End Function