Access Access Boite de dialoge enregistrer sous

[netparty]

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

Mais cela ne fonctionne pas


auriez-vous une idée

Merci d'avance

 

[laurent3372]

.InitialFileName = CurrentProject.Path & "\" & Me.Fichier 'recuperer le fichier dans txtbox fichier'

 

[Philippe_JOCHMANS]

Bonjour

Quand tu dis cela ne fonctionne pas c'est quoi ?

Message d'erreur (et si oui sur quel ligne) ?
Rien ne se passe ?

Avant que tu répondes il manque peut-être un \ entre CurrentProject.Path et Me.Fichier

Voilà en attendant.

Philippe

 

[netparty]

Bonjour à tous

Je viens de tester en ajoutant le "\" mais rien ne change.

En fait, j'ai bien la boite de dialogue enregistrer sous mais quand je clic sur ok il n'enregistre rien ?

Si vos avez une autre piste

Merci de votre aide

 

[netparty]

je joint mon fichier se sera peu être plus clair

Merci

 

[laurent3372]

Voici le code corrigé.

Private Sub BP_SaveAs_Click()
    Dim Dialog As FileDialog: Set Dialog = Application.FileDialog(msoFileDialogSaveAs)
    Dim strFichier As String
    'Extraction du nom du fichier à sauvagrder.
    strFichier = Mid(Me.Fichier, InStrRev(Me.Fichier, "\") + 1)
    With Dialog
        .InitialFileName = CurrentProject.Path & "\" & strFichier 'recuperer le fichier dans txtbox fichier'
        'FilterIndex = 2
        .Title = "Enregistrer sous"
        If .Show <> 0 Then
            FileCopy Me.Fichier, .SelectedItems(1)
        End If
    End With
End Sub

Cordialement,
--
LR

 

[netparty]

Voici le code corrigé.

Private Sub BP_SaveAs_Click()
    Dim Dialog As FileDialog: Set Dialog = Application.FileDialog(msoFileDialogSaveAs)
    Dim strFichier As String
    'Extraction du nom du fichier à sauvagrder.
    strFichier = Mid(Me.Fichier, InStrRev(Me.Fichier, "\") + 1)
    With Dialog
        .InitialFileName = CurrentProject.Path & "\" & strFichier 'recuperer le fichier dans txtbox fichier'
        'FilterIndex = 2
        .Title = "Enregistrer sous"
        If .Show <> 0 Then
            FileCopy Me.Fichier, .SelectedItems(1)
        End If
    End With
End Sub

Cordialement,
--
LR

Bonsoir laurent3372

Super c'est tout ce qui me faut

est-il possible de forcer l’extension sur .PDF ?

un grand merci

bonne soirée