Ouvrir un fichier avec un chemin predefinis

[aurel]

Bonjour a toutes et a tous,
J'ai un petit souci, avec une Bdd et une user form, quand je clic sur un bouton celle ci doit m'ouvrir un fenetre permettant d'inserer des données. Ce code n'a pas ete redigé par moi mais j'aimerai le modifié pour que des que je clic sur le bouton, sa m'ouvre une fenetre directement sur le repertoire predefini. Je sais ce n'est pas de l'excel mais comme je suis deja inscrit je me permets de le mettre ici.

Voici le code:
'------------------------------------------------------------
' Commande3_Click
'
'------------------------------------------------------------
Private Sub Commande3_Click()
On Error GoTo Commande3_Click_Err
Dim strFichier As String
Dim strDefImport As String
Dim strNomTable As String

DoCmd.SetWarnings False

strFichier = Trim$(RechercheFichier)

If strFichier = vbNullString Then
MsgBox "Aucun fichier sélectionné", , "Terminé !"
Exit Sub
End If

strDefImport = "HAR_CAHIERS"
strNomTable = "Cahier_Source"

On Error Resume Next
DoCmd.DeleteObject acTable, strNomTable
On Error GoTo Commande3_Click_Err

DoCmd.TransferText , strDefImport, strNomTable, strFichier, False, ""


DoCmd.SetWarnings True

MsgBox "Terminé table importée"

Commande3_Click_Exit:
Exit Sub

Commande3_Click_Err:
MsgBox Error$
Resume Commande3_Click_Exit

End Sub


Et le chemin pour le dossier est le suivant:
"G:\FR\CR\COMMUN\APPL\DOP_APP\DSE_APP\MET BT20"

Merci d'avance.