Dans un forms, importez un objet de type Microsoft Commond Dialog
Dans les propriété donné lui le nom que vous souhaitez. "CommonDialog", par exemple...
ensuite créer un bouton et donnez lui le code évenement suivant:
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é
Exit Sub
ErrHandler:
'L'utilisateur a cliqué sur Annuler
End Sub
Les vrais programmeurs sont ceux qui programment en binaire !
