Обзор файла VBA

Question

Я работаю над базой данных с помощью VBA, я хочу добавить файлы к своим данным Я написал этот код, и я хорошо работаю, он добавляет путь к файлу, как я хочу, но pb - это когда я хочу открыть файл говорит, что фле не существует. Код для добавления файла:

Private Sub Sub_Ajout_Mdp_Forma_Click()
Dim repertoire As String
If Me.ListBox_Form_Intern.ListIndex = -1 Then
    MsgBox ("Pour ajouter le mode de preuve veuiller choisir une formation")
Else
Set ws = ActiveWorkbook.Worksheets(Personne)
Nom_Forma = Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 0)
Date_Forma = Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 1)

Fin_Col_Forma = ws.Cells(10, 256).End(xlToLeft).Column
    ws.Cells(10, Fin_Col_Forma + 1).Value = Nom_Forma
    Cells(10, Fin_Col_Forma + 1).Select
    ws.Activate
    repertoire = Application.GetOpenFilename()
    ws.Cells(11, Fin_Col_Forma + 1) = CDate(Date_Forma)
    ws.Cells(12, Fin_Col_Forma + 1) = repertoire

End If
End Sub

Код для открытия файла

Private Sub Editer_MdP_Formation_Click()
If UF_Profil_Edit1.ListBox_Form_Intern.ListIndex = -1 Then
MsgBox ("Vous n'avez pas selectionn? une formation")
Else
Nom_Forma = UF_Profil_Edit1.ListBox_Form_Intern.List(UF_Profil_Edit1.ListBox_Form_Intern.ListIndex, 0)
 Dim Plage As Range
        Set ws = ActiveWorkbook.Worksheets(Personne)
        Set Plage = ws.Rows(10)
        Set Trouve = Plage.Cells.Find(what:=Nom_Forma)
    If Trouve Is Nothing Then
    MsgBox ("erreur: Mode de preuve non trouv?e")
    Else
        chemin = ws.Cells(12, Trouve.Column).Value
        If chemin = "" Then
            MsgBox ("Pas de mode de preuve existante")
        Else
            ThisWorkbook.FollowHyperlink chemin
        End If
    End If

End If
End Sub

Я ошибаюсь в любом из своих кодов? спасибо