Spécification et ouverture d'un fichier Excel par macro

Sub MaProcedure()
    Dim NomFichier As String
 
    NomFichier = RechercheFichier()
    If NomFichier = "" Then
        MsgBox "Vous n'avez sélectionné aucun fichier"
        Else
        'Workbooks.Open NomFichier
    End If
End Sub

Function RechercheFichier() As String
    Dim fd As FileDialog
    Dim NomFichier As String
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Add "fichier txt", "*.txt"
        .Title = "Recherche de fichier"
        'mettre le chemin du repertoire
        .InitialFileName = "d:\_cles\"
    End With
    If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)
 
    RechercheFichier = NomFichier
    Set fd = Nothing
End Function

Sub MaProcedure()
Dim Chemin_et_Fichier As String, Fichier As String, Rep_Fichier As String

'recuperation du chemin et nom de fichier
Chemin_et_Fichier = RechercheFichier(Rep_Fichier)
'extraction du nom de fichier
Fichier = Right(NomFichier, Len(Chemin_et_Fichier) - Len(Rep_Fichier))
If Chemin_et_Fichier = "" Then
MsgBox "Vous n'avez sélectionné aucun fichier"
Else
'import fichier
Call Import_Fichier(Rep_Fichier, Chemin_et_Fichier)
End If
End Sub

Sub Import_Fichier(Rep_Fich, Chemin_Complet)
'penser a nommer un onglet Affichage"
Worksheets("Affichage").Activate
'Efface le contenu de toutes les cellules de l'onglet actif
Cells.ClearContents

'Importation du fichier texte a afficher, premiere cellule a remplir: A2
'la base du code est obtenu avec l'enregistreur de macro et travaile en fonction
'du besoin: noms de ficher et repertoire changeant en fonction de la date
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin_Complet, Destination:=Range("$A$1"))
.Name = Fichier
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False      'pas d'ajustement des colonnes
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlMSDOS     'format txt msdos
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSpaceDelimiter = True  'delimiteur espace
.TextFileColumnDataTypes = Array(xlTextFormat) 'definition format colonnes
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Function RechercheFichier(Rep_Fich) As String
Dim fd As FileDialog
Dim NomFichier As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Add "fichier txt", "*.txt"
.Title = "Recherche de fichier"
'mettre le chemin du repertoire
.InitialFileName = "d:\_cles\"
End With
If fd.Show = -1 Then
NomFichier = fd.SelectedItems(1)
Rep_Fich = fd.InitialFileName
End If

RechercheFichier = NomFichier
Set fd = Nothing
End Function

Sub MaProcedure()
    Dim Chemin_et_Fichier As String, Fichier As String, Rep_Fichier As String
 
    'recuperation du chemin et nom de fichier
    Chemin_et_Fichier = RechercheFichier(Rep_Fichier)
    If Chemin_et_Fichier = "" Then
        MsgBox "Vous n'avez sélectionné aucun fichier"
    Else
        'ouverture ficher selectionne
        Workbooks.Open (Chemin_et_Fichier)
    End If
End Sub

Function RechercheFichier(Rep_Fich) As String
    Dim fd As FileDialog
    Dim NomFichier As String
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Add "fichier xls", "*.xls"
        .Title = "Recherche de fichier xls"
        'mettre le chemin du repertoire
        .InitialFileName = "d:\_cles\"
    End With
    If fd.Show = -1 Then
        NomFichier = fd.SelectedItems(1)
        Rep_Fich = fd.InitialFileName
    End If
 
    RechercheFichier = NomFichier
    Set fd = Nothing
End Function