Import .txt du dossier courant

Salut à tous,

J'ai un fichier excel (suite à mon dernier sujet) qui sert à importer un .txt suivant une sélection dans une boîte de dialogue, il filtre puis supprime les lignes vides que le filtrage à créer.

Le problème est que je souhaiterais qu'il importe le fichier "test.txt" qui se trouve dans le dossier courant de mon "Import.xlsm" et non passer par une boîte de dialogue et choisir le fichier (puisqu'il sera toujours le même suivant le dossier).

La seconde problématique, c'est qu'il me manque un morceau de code, l'import se fait dans la feuille courante, hors, j'en ai plusieurs, il faudrait qu'il aille dans la feuille "Valeurs" automatiquement.

Cordialement

Bonjour,

une proposition d'adaptation.

Public Sub ChoixFicTxt()
    Chemin = ThisWorkbook.Path & "\test.txt"
    LireMan Chemin
End Sub

Sub LireMan(NomFichier)
    Dim Ar() As String
    Dim Lig&, Col&, X&
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlManual
    End With
    Rows("1:" & Rows.Count).ClearContents
    Sep = vbTab
    Lig = 10    ' commence a la ligme 10
    ' -----------------------------------------
    On Error Resume Next
    Open NomFichier For Input As #1
    Do While Not EOF(1)
        Line Input #1, Chaine
        Ar = Split(Chaine, Sep)
        Col = 1
        For X = LBound(Ar) To UBound(Ar)
            Sheets("Valeurs").Cells(Lig, Col).Value = CStr(Ar(X))
            Col = Col + 1
        Next
        Lig = Lig + 1
    Loop
    Close #1
    ' -----------------------------------------
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .CutCopyMode = False
        .Goto [A1], True
    End With
End Sub

Salut, merci pour ce code ! Il semble parfaitement marcher.

Cordialement