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 ?