Option Explicit
Private Sub CommandButton1_Click()
Dim Le_Nom_Complet_du_Fichier As String, Le_Chemin As String, Le_Nom As String
Le_Nom_Complet_du_Fichier = Application.GetOpenFilename(, , "Sélectionnez le Master à utiliser")
Le_Nom = Dir(Le_Nom_Complet_du_Fichier)
Le_Chemin = Left(Le_Nom_Complet_du_Fichier, Len(Le_Nom_Complet_du_Fichier) - Len(Dir(Le_Nom_Complet_du_Fichier)))
UserForm1.TextBox1.Value = Le_Chemin
End Sub