Discussion :

[meryem meryem]

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

[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 ‼

[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]

[kiki29]

Salut,Salam, une solution basique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[parmi]

Bonjour,

Dans le texte que tu as copié, il n'y a pas de tabulation...
Est-ce voulu ?

[kiki29]

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

[meryem meryem]

je veux dire espace au lieu de ; ou /

[SfJ5Rpw8]

bonjour,

utilise l'enregistreur de macro... et ouvre ton fichier directement avec excel tu auras une idée du code à écrire ...

[meryem meryem]

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:

PRB.txt

[parmi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[meryem meryem]

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

Bien cordialement