Enregistrement d'un cheminement dans une cellule avec bouton de commande

Bonjour, j'ai crée un bouton de commande me permettant d' aller chercher un cheminement pour l'enregistrement d'une fiche, ça fonctionne sauf que pour le valider je suis obliger soit cliquer sur la croix de fermeture, soit sur le bouton annulé.

En appuyant sur enregistrer, ça ne fait rien.

Quelqu'un aurait il la solution ?

Merci par avance.

Ci joint l'exemple.

Bonjour,

Il faut double-cliquer sur un fichier présent dans la fenêtre.

Bonjour, votre code attend la sélection d'un fichier et non d'un répertoire.

Application.GetSaveAsFilename.

Pour sélection uniquement un chemin et pourvoir l'utiliser ensuite il faut :

-Demander un chemin

-sauvegarder le chemin dans votre cellule D4 ( action qui n'est pas obligatoire )

-Enfin utiliser le chemin obtenu pour enregistrer ce que vous souhaitiez ?

Ce qui n'est pas précisé dans votre message ( à par le mot fiche ? ) sous quel forme la fiche pdf ? un onglet du fichier acutellement ouvert ? ... celà reste à définir.

Ci-aprés l'exemple qui enregistre la copie du fichier excel entier.

Private Sub CommandButton1_Click()
Dim ChoixDossier As String

 If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
End If
Range("D4") = ChoixDossier & "\"

ActiveWorkbook.SaveAs Filename:=ChoixDossier &"\" & "Sauvegarde_Sorties.xlsm"

End Sub

Excellent, merci beaucoup.