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 !
