Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Repertoire As FileDialog
ChDrive "I:\"
ChDir "I:\DOSSIERS ADHERENTS"
'TextBox2.Value = Application.GetOpenFilename()
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
TextBox2 = Repertoire.SelectedItems(1)
If TextBox2.Value = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
End If
End Sub