mardi 27 août 2013

Créer un bouton "Parcourir" pour sélectionner un Répertoire (Excel, Word, Access)

1) Créer un bouton sur un Userform, puis gérer l'événement Click côté code en intégrant le code ci-dessous

Private Sub CommandButton1_Click()

    Dim Repertoire As FileDialog
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        MsgBox Repertoire.SelectedItems(1)
    Else
        MsgBox "Aucun Répertoire Sélectionné"
    End If

End Sub