XL 2019 Importer données blocs notes (txt) dans excel

[Bastien43]

Bonjour,

Je dispose d'un fichier texte et je souhaite importer les données dans excel. Cependant, je n'arrive pas à avoir une valeur par cellule. Comment faire svp ? En indiquant séparateur (espace ou tabulation), cela ne fonctionne pas...

Je vous remercie,
Cordialement
Bastien

 

[shinozak]

Bonjour,

Met largeur fixe quand tu ouvres ton fichier txt

 

[Bastien43]

Bonjour,

Merci, en ouvrir depuis excel le fichier cela m'a proposé l'option et a fonctionné.

Merci beaucoup

 

[sylvanu]

Bonjour,
Un essai en PJ avec :

Sub ReadTxtFile()
    On Error GoTo Erreur
    Dim Chaine As String, Fichier As String, UneLigne As String, i As Integer, f As Integer, T(10000), Lig%, Col%
    Cells.ClearContents
    Classeur = ThisWorkbook.Name
    Fichier = ActiveWorkbook.Path & "\" & "Données.txt"
    f = FreeFile
    Open Fichier For Input As #f
    i = 0
    While Not EOF(f)
      i = i + 1
      Line Input #f, UneLigne
      T(i) = UneLigne
    Wend
    Close #f
    With Workbooks(Classeur).Sheets("Feuil1"): .Activate
        For Lig = 1 To UBound(T)
            tablo = Split(T(Lig), " ")
            Col = 1
            For i = 0 To UBound(tablo)
                If tablo(i) <> "" Then
                    If Left(tablo(i), 1) = "=" Then tablo(i) = "'" & tablo(i)
                    .Cells(Lig, Col) = tablo(i)
                    Col = Col + 1
                End If
            Next i
        Next Lig
    End With
    Exit Sub
Erreur:
    MsgBox "Le fichier de sortie est inaccessible"
End Sub

 

[Bastien43]

Bonjour

merci pour votre aide, cela fonctionne super bien

Cordialement

 

[sylvanu]

L'avantage de cette méthode est qu'on peut importer des dizaines de fichiers texte d'un seul coup, je l'utilisais pour importer des données d'instruments de mesure.
S'il n'y a qu'un seul fichier alors votre méthode est plus simple.

 

[Bastien43]

Merci pour votre partage 🙂