Private Sub BoutonParcourir_Click()
Dim AppExcel As Excel.Application
Dim Filtre As String
Dim Titre As String
Dim MemCheminFichierDicos As String
MemCheminFichierDicos = CheminFichierDicos
NmDesDicos.Clear
Set AppExcel = CreateObject("Excel.Application") ' Création objet Application
Filtre = "Fichiers Excel (*.xls),*.xls"
Titre = "Choix du fichier des dictionnaires"
CheminFichierDicos = AppExcel.GetOpenFilename(filefilter:=Filtre, Title:=Titre)
If CheminFichierDicos = False Then
ChemFichDicos = MemCheminFichierDicos ' En cas d'annulation dans la boîte de recherche fichier
CheminFichierDicos = MemCheminFichierDicos
Else
ChemFichDicos = CheminFichierDicos ' Met le chemin de la boîte dans la variable
End If
Set AppExcel = Nothing
Call RecupNomsDicos
NmDesDicos.Column = ListeNmDicos ' Met à jour la liste des dictionnaires
End Sub