Comment enregistrer-sous avec commondialog

Question

Facile d'afficher la fenêtre "enregistrer-sous" grâce à la commande "commondialog1.showsave", mais comment faut-il indiquer à partir de quoi faut-il qu'il enregistre (par exemple à partir d'une chaîne dans un textbox) ?

Mariner · Answer

ShowSave sert uniquement à récupérer le nom du fichier à utiliser.  La balance tu le code.

gvhecke · Answer

moi je procède ainisi

Private Sub btSave_Click()
    Dim TonChemin As String
    CommonDialog.CancelError = True ' Attribue à CancelError la valeur True
    On Error GoTo ErrHandler
    CommonDialog.DialogTitle = "Selection de Fichier" ' Définit le titre de la fenêtre
    CommonDialog.flags = cdlOFNHideReadOnly ' Définit la propriété Flags
    CommonDialog.InitDir = "D:\payroll" ' Chemin Initial
    CommonDialog.Filter = "Fichiers (*.*)|*.*" ' Définit les filtres
    CommonDialog.FilterIndex = 2 ' Définit le filtre par défaut
    CommonDialog.ShowSave ' Affiche la boîte de dialogue Ouverture
    TonChemin = CommonDialog.FileName ' Enregistrement du Chemin Selectionné
    Me.chemin.Value = TonChemin
    chemin = TonChemin
    Exit Sub
ErrHandler:
'L'utilisateur a cliqué sur Annuler
End Sub

Et si tu remplace CommonDialog.ShowSave par CommonDialog.ShowOpen tu obtient une fenêtre du type "ouvrir > fichier"
--------------------------------------------------------------------------------------
Les vrais programmeurs sont ceux qui programment en binaire !  :big)

Comment enregistrer-sous avec commondialog

2 réponses

Discussions similaires