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

LBi

XLDnaute Junior
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
 

Pièces jointes

  • ResultatBiologique.Txt
    1.2 KB · Affichages: 23
  • Tableau biologique essai.xlsm
    57 KB · Affichages: 21
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

@LBi
Rien trouvé de probant?
Bon, ma petite BA du vendredi soir (cela doit être l'effet de l'éclipse de lune)
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées