Extraire certaine Ligne d'un Fichier Txt

Bonsoir à tous.

j'ai réalisé une macro pour extraire les données d'un fichier txt (choisi par arborescence) sur un classeur Excel.

Ce code n'est pas totalement opérationnel, puisqu'il ne charge pas certain de mes fichiers Txt, probablement ceux contenant trop de ligne.

Pour palier à cela, je souhaiterai pouvoir extraire uniquement certaines lignes du fichier Txt. Malgré mes recherches, je ne trouve pas cette informations,

Auriez vous une piste?

voici mon code actuel: (je vous joinds le fichier txt )

Sub Lire_Fichier_Exel()
Dim SelectionRepertoire_affichierChemin As String
Dim Repertoire As FileDialog

Set Repertoire = Application.FileDialog(msoFileDialogFilePicker)
Repertoire.Show

selectionRepertoire_afficherChemin = Repertoire.SelectedItems(1)

'Déclaration des variable de type objet (ajout Microsoft script runtime obligatoire)
Dim Fso As Scripting.FileSystemObject
Dim Ts As Scripting.textStream

'Affectation des variables de type objet doivent etre indroduit par l'instruction SET
Set Fso = New Scripting.FileSystemObject
'Ouverture du fichier text dans le fichier sélectionné.
Set Ts = Fso.OpenTextFile(selectionRepertoire_afficherChemin)

'On rajoute un classeur
Workbooks.Add

'On boucle tout le contenu du fichier Txt
Do Until Ts.AtEndOfStream
ActiveCell.Value = Ts.ReadLine
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Salut,

Peux-tu joindre le fichier (ou un fichier modèle) dans lequel se trouve cette macro ?

Cordialement.

Bonjour,

Plus simplement :

Option Explicit
Sub Lire_Fichier_Exel()
Dim nomDossier As String
Dim nomFichier As String
Dim dlgFichier As FileDialog
Dim wbk As Workbook

  ' Selectionner le fichier
  nomDossier = ThisWorkbook.Path & "\"    'à adapter
  Set dlgFichier = Application.FileDialog(msoFileDialogFilePicker)
  With dlgFichier
    .InitialFileName = nomDossier
    .Title = "Sélectionner un fichier texte avec extension .txt :"
    .AllowMultiSelect = False
    .InitialView = msoFileDialogViewDetails
    .ButtonName = "Sélection fichier"
    If .Filters.Count > 0 Then .Filters.Delete
    .Filters.Add "Fichiers en .txt", "*.txt", 1
    If .Show = -1 Then nomFichier = .SelectedItems(1) Else Exit Sub
  End With
  Set dlgFichier = Nothing
  ' Ouvrir le fichier
  Application.ScreenUpdating = False
  Set wbk = Workbooks.Open(Filename:=nomFichier, Format:=1, local:=True)
  wbk.Worksheets(1).Columns.AutoFit
  wbk.Worksheets(1).Rows.AutoFit
  Application.ScreenUpdating = True

End Sub

Bonjour à vous.

Yvouille, le fichier excel est vide.

Je souhaite envoyer les données contenu dans certaines ligne du fichier txt dans excel.

Bonne soirée.

Bonjour,

Et quelles lignes ?

Il faut être plus précis si tu veux une aide adaptée du forum.

Cdlt.

En attendant pour pour passer le temps :

Bonjour,

C'est quoi ce format de txt ?

Un import réalisé avec Power Query !...

Une exportation classique au format texte avec la tabulation comme séparateur.