Bonjour à tous
Je coince sur une fonction que je voudrais intégrer.
j'aimerais ouvrir une boite de dialoge pour enregistrer le fichier qui se trouve dans une txtbox
voici mon code :
Private Sub BP_SaveAs_Click()
Dim Dialog As FileDialog: Set Dialog = Application.FileDialog(msoFileDialogSaveAs)
With Dialog
.InitialFileName = CurrentProject.Path & Me.Fichier 'recuperer le fichier dans txtbox fichier'
'FilterIndex = 2
.Title = "Enregistrer sous"
If .Show <> 0 Then
BP_SaveAs = .SelectedItems(1)
End If
End With
End sub
Mais cela ne fonctionne pas
auriez-vous une idée
Merci d'avance