Access Access Boite de dialoge enregistrer sous

netparty · 12 Mars 2020

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 · 13 Mars 2020

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

Philippe_JOCHMANS · 13 Mars 2020

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 · 13 Mars 2020

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 · 13 Mars 2020

je joint mon fichier se sera peu être plus clair

Merci

laurent3372 · 13 Mars 2020

Voici le code corrigé.

VB:

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 · 13 Mars 2020

laurent3372 à dit:

Voici le code corrigé.

VB:

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

Access Access Boite de dialoge enregistrer sous

netparty

XLDnaute Occasionnel

laurent3372

XLDnaute Impliqué

Philippe_JOCHMANS

XLDnaute Junior

netparty

XLDnaute Occasionnel

netparty

XLDnaute Occasionnel

Pièces jointes

laurent3372

XLDnaute Impliqué

netparty

XLDnaute Occasionnel

Discussions similaires