Enregistré sous - afficher le nom de fichier

Bonjour,

le code suivant fonctionne très bien, seulement lorsque j'arrive à la partie "enregistrer sous", aucun nom de fichier n'apparait dans la barre. L'enregistrement se fait toutefois correctement avec le nom désiré. J'aimerais donc savoir s'il est possible que lorsque la boite de dialogue d'enregistrement s'ouvre, le nom que prendra le fichier s'affiche dans la barre.

Merci déjà

Private Sub Btn_OK_Click()

Dim oFd As FileDialog
Dim stName As String
Dim MaDate As Date
Dim MaDate2 As String

TB_Horaire.SetFocus

With ActiveDocument

    .Bookmarks("Date").Range.Text = Date
    .Bookmarks("Horaire").Range.Text = Me.TB_Horaire.Value
    .Bookmarks("TAD").Range.Text = Me.TB_TAD.Value
    .Bookmarks("Signature").Range.Text = Me.TB_Signature.Value

End With

MaDate = Now()
MaDate2 = Format(MaDate, "dd-mm-yyyy")

Set oFd = Application.FileDialog(msoFileDialogFolderPicker)

oFd.Show
ActiveDocument.SaveAs FileName:="BS " & MaDate2 & " pause " & Me.TB_Horaire.Value & ".docx"
Set oFd = Nothing

Unload Me

End Sub

Bonjour,

Avec msoFileDialogFolderPicker, vous pouvez afficher une valeur avec la propriété InitialFileName mais la valeur attendue correspond à un répertoire. Si vous mettez le nom de votre fichier, il apparaîtra bien (peut-être tronqué car certains caractères sont interdits) mais cela ne correspondra à rien.

Sub Test()

Dim ofd As FileDialog

     Set ofd = Application.FileDialog(msoFileDialogFolderPicker)
     With ofd
          .InitialFileName = "D:\Documents\VBA Excel\Développez-Com\Dialogs"
          .Show
     End With
     Set ofd = Nothing

End Sub

Pour faire apparaître un fichier, utiliser msoFileDialogFilePicker, mais je doute que cela vous serve dans votre cas.

Merci c'est ce que je cherchais :)