(Résolu) Ouvrir un fichier texte, sélectionner le texte et le copier en mémoire

[LBi]

Bonjour,
Je voudrais automatiser une étape de saisie avec une macro pour ouvrir un fichier txt grâce à l'explorateur Windows, puis sélectionner tout le texte du fichier le copier pour pouvoir l'intégrer dans ma macro1.
Pour l'instant, j'ouvre manuellement un fichier txt puis je sélectionne tout (CtrlA) je le copie (CtrlC) et j'appuie sur le bouton "Saisie" qui lance la macro1, puis je vais sur la ligne 4 Hémoglobine et je "colle les valeurs" en F4 pour le premier tableau.
Un autre souhait si cela est possible serait de pouvoir coller automatiquement le résultat dans la cellule de la ligne 4 de la première colonne vide F,J,N,R....
Merci
Je joins le fichier texte exemple et le tableau biologique

 

[LBi]

merci

 

[Staple1600]

Re

@LBi
Rien trouvé de probant?
Bon, ma petite BA du vendredi soir (cela doit être l'effet de l'éclipse de lune)

Sub OuvrirFichierSuiteEtFin()
Dim Chemin$, NomFichier$, t
Dim DerCol&
DerCol = Sheets("T1").Cells(4, Columns.Count).End(xlToLeft).Column + 1
t = Array(Array(1, 9), Array(2, 9), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1))
ThisWorkbook.Sheets("Entrée").Cells.Clear
With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Sélectionner votre fichier, svp": .AllowMultiSelect = False: .Filters.Clear: .Filters.Add "Fichiers TXT", "*.txt", 1
    .FilterIndex = 1: .InitialView = msoFileDialogViewProperties
        If .Show = -1 Then
        Chemin = .SelectedItems(1): Application.ScreenUpdating = False
        Workbooks.OpenText Chemin, StartRow:=6, DataType:=xlDelimited, Other:=True, OtherChar:="|", FieldInfo:=t
        ActiveWorkbook.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Entrée").Range("A1")
        Application.CutCopyMode = False: ActiveWorkbook.Close False
        Sheets("Nouvelle").Range("F1:I120").Copy
        Sheets("T1").Cells(4, DerCol).PasteSpecial xlValues
        Application.CutCopyMode = False
        Else
        MsgBox "Vous n'avez pas sélectionné de fichier!", vbCritical, "ERREUR"
    End If
End With
End Sub

 

[LBi]

Je suis admiratif devant votre savoir 😀
Bonne éclipse à vous.