Code d'un fichier ASCII tabulé

Version imprimable

21/08/2014, 16h11
meryem meryem

Code d'un fichier ASCII tabulé

c'est quoi le code d'un fichier ASCII tabulé : d'un contenue fichier ASCII tabulé vers une feuille excel.
est ce quel se résoudre de la même manière comme un fichier délimite?

Merci pour votre collaboration
21/08/2014, 16h42
Marc-L

Double-cliquer sur le fichier depuis l'Explorateur Windows pour commencer !

Si cela ne convient pas, ouvrir le fichier manuellement depuis Excel et bien remplir l'Assistant de conversion !
Et en utilisant le Générateur de macros, le code est livré sur un plateau ‼
21/08/2014, 16h51
meryem meryem

Bonjour Mr MARC L,
Merci d'abord pour votre interet et réponse, mais est ce qu'il existe un code depuis marco?

Double-cliquer sur le fichier depuis l'Explorateur Windows pour commencer !

Si cela ne convient pas, ouvrir le fichier manuellement depuis Excel et bien remplir l'Assistant de conversion !
Et en utilisant le Générateur de macros, le code est livré sur un plateau ‼[/INDENT][/QUOTE]

Salut,Salam, une solution basique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Sub Tst()
Dim Fichier As Variant
    ChDir ThisWorkbook.Path & "\"
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    If Fichier <> False Then Lire Fichier
End Sub
 
Private Sub Lire(ByVal NomFichier As String)
Dim sChaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur As String * 1
 
    '  Séparateur Tabulation
    Separateur = Chr(9)
 
    Feuil1.Cells.Clear
    NumFichier = FreeFile
    iRow = 1
 
    Open sNomFichier For Input As #NumFichier
        Do While Not EOF(NumFichier)
            iCol = 1
            Line Input #NumFichier, sChaine
            Ar = Split(sChaine, Separateur)
            For i = LBound(Ar) To UBound(Ar)
                Feuil1.Cells(iRow, iCol) = Ar(i)
                iCol = iCol + 1
            Next i
            iRow = iRow + 1
        Loop
    Close #NumFichier
End Sub

21/08/2014, 17h27
meryem meryem

Merci bcp pour votre collaboration.
Svp pour notre cas on n'a pas a un séparateur ''/'' en code aussi vous avez met ''/'' mais il y a un espace comment je peux le traduire en code

Voir le texte qu'on a:

S10_1678 1969 Harley Davidson Ultimate Chopper Motorcycles 1:10 Min Lin Diecast 7933 48,81 95,70
S10_1949 1952 Alpine Renault 1300 Classic Cars 1:10 Classic Metal Creations 7305 98,58 214,30
S10_2016 1996 Moto Guzzi 1100i Motorcycles 1:10 Highway 66 Mini Classics 6625 68,99 118,94
21/08/2014, 17h42
parmi

Bonjour,

Dans le texte que tu as copié, il n'y a pas de tabulation...
Est-ce voulu ?
21/08/2014, 18h06
kiki29

Meryem, pourrais-tu mettre en pièce jointe un échantillon de ton fichier texte ?
21/08/2014, 18h17
meryem meryem

je veux dire espace au lieu de ; ou /
21/08/2014, 18h25
SfJ5Rpw8

bonjour,

utilise l'enregistreur de macro... et ouvre ton fichier directement avec excel tu auras une idée du code à écrire ...
21/08/2014, 18h39
meryem meryem

1 pièce(s) jointe(s)

Citation:

Envoyé par kiki29

Meryem, pourrais-tu mettre en pièce jointe un échantillon de ton fichier texte ?

Bonjour KIKI 29,
Merci bcp pour votre interet et collaboration.
Veuillez trouver ci joint le texte:

Pièce jointe 154366

Quel est le résultat escompté dans Excel ?

Dans ton fichier, il y a des sauts de lignes à chaque section.
Split pourrait être utilisé pour séparer ces sections.

Voici un exemple pour écrire le véhicule en colonne A et le texte s'y rapportant en colonne B
Il restera à ajuster les sauts de ligne et la largeur des colonnes
Le texte du type de véhicule a 50 caractères de long
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Importer() Dim I As Long, Ligne As Long Dim Fichier As String Dim strTemp As String Dim Tablo Fichier = "C:\PRB.txt" Open Fichier For Binary As #1 strTemp = Space$(LOF(1)) Get #1, , strTemp Tablo = Split(strTemp, vbCrLf) For I = 0 To UBound(Tablo) Ligne = Ligne + 1 Range("A" & Ligne) = Trim(Left(Tablo(I), 50)) Range("B" & Ligne) = Trim(Right(Tablo(I), Len(Tablo(I)) - 50)) Next Close #1 End Sub

21/08/2014, 20h35
meryem meryem

Bonjour,
Merci bcp pour votre intérêt et reponse.

Bien cordialement