Access Access Boite de dialoge enregistrer sous

  • Initiateur de la discussion Initiateur de la discussion netparty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

netparty

XLDnaute Occasionnel
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
243
Réponses
3
Affichages
673
Réponses
11
Affichages
683
Réponses
14
Affichages
2 K
Réponses
4
Affichages
878
Retour