Comment enregistrer-sous avec commondialog

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) ?

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



-------------------------------
Réponse au message :
-------------------------------

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) ?
-------------------------------

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 !