Importer un fichier sous format texte en excel

Version imprimable

svp j'ai un projet de BO, je dois importer un fichier sous format text en excel, mais j'ai un astuce que j'arrive pas a ajouter un test au niveau de programmation, il apparait toujours '';'' au niveau de excel pour la colonne d'adresse, veuillez trouver ci-joint les fichiers, merci d'avance de m'aider de ressoudre ce probleme:)
texte:

103;"Atelier graphique";"Schmitt";"Carine ";"40.32.2555";"54, rue Royale";;"Nantes";;"44000";"France";1370;21000,00
112;"Signal Gift Stores";"King";"Jean";"7025551838";"8489 Strong St.";;"Las Vegas";"NV";"83030";"USA";1166;71800,00
114;"Australian Collectors, Co.";"Ferguson";"Peter";"03 9520 4555";"636 St Kilda Road";"Level 3";"Melbourne";"Victoria";"3004";"Australia";1611;117300,00
119;"La Rochelle Gifts";"Labrune";"Janine ";"40.67.8555";"67, rue des Cinquante Otages";;"Nantes";;"44000";"France";1370;118200,00
121;"Baane Mini Imports";"Bergulfsen";"Jonas ";"07-98 9555";"Erling Skakkes gate 78";;"Stavern";;"4110";"Norway";1504;81700,00
124;"Mini Gifts Distributors Ltd.";"Nelson";"Susan";"4155551450";"5677 Strong St.";;"San Rafael";"CA";"97562";"USA";1165;210500,00
125;"Havel & Zbyszek Co";"Piestrzeniewicz";"Zbyszek ";"(26) 642-7555";"ul. Filtrowa 68";;"Warszawa";;"01-012";"Poland";;0,00

20/07/2014, 16h51
SfJ5Rpw8

Bonjour,

montre nous le code VBA (entre balises [code] [/code] ) utilisé.

Bonjour,

Teste ceci :

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
 
Sub Lire()
 
    Dim Tbl
    Dim Fichier As String
    Dim Ligne As String
    Dim J As Long
 
    'adapter le chemin et nom du fichier
    Fichier = "C:\Dossier\Nom de mon Fichier.txt"
 
    Open Fichier For Input As #1
 
    Do While Not EOF(1)
 
        Line Input #1, Ligne
 
        Ligne = Replace(Ligne, """", "")
 
        Tbl = Split(Ligne, ";")
 
        J = J + 1
 
        Worksheets("Feuil1").Range(Cells(J, 1), Cells(J, UBound(Tbl, 1))) = Tbl
 
    Loop
 
    Close #1
 
End Sub

Hervé.

20/07/2014, 18h24
Marc-L

Bonjour, bonjour !

Si Excel est une version française (?), il n'y a quasiment rien à faire !

Déjà une simple vérification depuis l'explorateur de fichiers : double clic sur le fichier csv (?),
le fichier est-il correctement ouvert dans Excel ?

Voir aussi cette contribution …
20/07/2014, 18h32
SfJ5Rpw8

Citation:

Envoyé par Marc-L

...Excel est une version française (?), ..

il faut aussi une version d'excel relativement récente (au moins 2007 .... ) j'ai souvenir que les anciennes versions utiliser les csv à la mode anglaise sur double-clic (même sur les versions françaises d'excel.
20/07/2014, 18h37
Marc-L

Comme indiqué dans la contribution, cela fonctionne sur une version 2003 …

Différentes possibilités : le mieux serait d'accéder à son fichier texte en pièce jointe.
20/07/2014, 18h40
SfJ5Rpw8

il faut surtout attendre qu'il nous dise comment il fait .... ( avec quel code s'il y en as un ...)
20/07/2014, 18h44
Marc-L

http://smileys.sur-la-toile.com/repo...s/plus-un2.gif

Afin de s'assurer d'une tentative de déléguer son travail …

Citation:

Envoyé par bbil

Bonjour,

montre nous le code VBA (entre balises [code] [/code] ) utilisé.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
Sub customers()
    ' Cette procédure lit un fichier ASCII CUSTOMERS.TXT
    ' et le place sur une feuille CUSTOMERS.
 
    ' Déclarations variables locales (déclaration explicite)
    Dim LIGNE_LUE As String                                ' Ligne lue dans le fichier externe ASCII
    Dim POSITION As Integer                                ' Position d'un caractére dans une chaine
    Dim customerNumber As Integer                          ' Nom
    Dim customerName As String                             ' Prénom
    Dim contactLastName As String                          ' Age
    Dim contactFirstName As String
    Dim phone As String
    Dim addressLine1 As String
    Dim addressLine2 As Variant
    Dim city As String
    Dim state As Variant
    Dim postalCode As Variant
    Dim country As String
    Dim salesRepEmployeeNumber As Variant
 
    Dim creditLimit As Double
 
 
 
    ' Sélection feuille GARCONS
    Sheets("CUSTOMERS").Select
 
    ' Suppression du contenu éventuel de la feuille CUSTOMERS
    Cells.Select
    Selection.Delete
 
    ' Positionnnement des titres des colonnes
    Range("A1").Select
    ActiveCell.Value = "customerNumber"
 
    Range("B1").Select
    ActiveCell.Value = "customerName"
 
    Range("C1").Select
    ActiveCell.Value = "contactLastName"
 
    Range("D1").Select
    ActiveCell.Value = "contactFirstName"
 
    Range("E1").Select
    ActiveCell.Value = "phone"
 
    Range("F1").Select
    ActiveCell.Value = "addressLine1"
 
    Range("G1").Select
    ActiveCell.Value = "addressLine2"
 
    Range("H1").Select
    ActiveCell.Value = "city"
 
    Range("I1").Select
    ActiveCell.Value = "state"
 
    Range("J1").Select
    ActiveCell.Value = "postalCode"
 
    Range("K1").Select
    ActiveCell.Value = "country"
 
    Range("L1").Select
    ActiveCell.Value = "salesRepEmployeeNumber"
 
    Range("M1").Select
    ActiveCell.Value = "creditLimit"
 
 
   Range("A2").Select
 
 
    ' Ouverture du fichier ASCII CUSTOMERS.TXT en lecture
    Open "C:\CUSTOMERS.TXT" For Input As #1
 
    ' Lecture séquentielle fichier ASCII externe
    Range("A2").Select                                     ' Sélection cellule A2
    Do While Not EOF(1)                                    ' Continue jusqu'à la fin du fichier
 
        ' Lecture d'une ligne de données
        Line Input #1, LIGNE_LUE
        ' MsgBox ("LIGNE LUE : " + LIGNE_LUE)
 
        ' Repérage du customerNumber
        POSITION = InStr(LIGNE_LUE, ";")
        customerNumber = Left(LIGNE_LUE, POSITION - 1)
        ' MsgBox ("customerNumber : " + customerNumber)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 2)
 
        ' Repérage du customerName
        POSITION = InStr(LIGNE_LUE, ";")
        customerName = Left(LIGNE_LUE, POSITION - 2)
        ' MsgBox ("customerName : " + customerName)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 2)
 
        ' Repérage de contactLastName
        POSITION = InStr(LIGNE_LUE, ";")
        contactLastName = Left(LIGNE_LUE, POSITION - 2)
        ' MsgBox ("contactLastName : " + contactLastName)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 2)
 
        ' Repérage de contactFirstName
        POSITION = InStr(LIGNE_LUE, ";")
        contactFirstName = Left(LIGNE_LUE, POSITION - 2)
        ' MsgBox ("contactFirstName : " + contactFirstName)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 2)
 
 
        ' Repérage de l'indicateur phone
        POSITION = InStr(LIGNE_LUE, ";")
        phone = Left(LIGNE_LUE, POSITION - 2)
        ' MsgBox ("phone : " + phone)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 2)
 
        ' Repérage de l'indicateur addressLine1
        POSITION = InStr(LIGNE_LUE, ";")
        addressLine1 = Left(LIGNE_LUE, POSITION - 2)
        ' MsgBox ("addressLine1 : " + addressLine1)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 1)
 
        ' Repérage de l'indicateur addressLine2
        POSITION = InStr(LIGNE_LUE, ";")
        addressLine2 = Left(LIGNE_LUE, POSITION - 1)
        ' MsgBox ("addressLine2 : " + addressLine2)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 2)
 
        ' Repérage de l'indicateur city
        POSITION = InStr(LIGNE_LUE, ";")
        city = Left(LIGNE_LUE, POSITION - 2)
        ' MsgBox ("city : " + city)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 1)
 
        ' Repérage de l'indicateur state
        POSITION = InStr(LIGNE_LUE, ";")
        state = Left(LIGNE_LUE, POSITION - 1)
        ' MsgBox ("state : " + state)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 1)
 
         ' Repérage de l'indicateur postalCode
        POSITION = InStr(LIGNE_LUE, ";")
        postalCode = Left(LIGNE_LUE, POSITION - 1)
        ' MsgBox ("postalCode : " + postalCode)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 2)
 
         ' Repérage de l'indicateur country
        POSITION = InStr(LIGNE_LUE, ";")
        country = Left(LIGNE_LUE, POSITION - 2)
        ' MsgBox ("country : " + country)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 1)
 
         ' Repérage de l'indicateur salesRepEmployeeNumber
        POSITION = InStr(LIGNE_LUE, ";")
        salesRepEmployeeNumber = Left(LIGNE_LUE, POSITION - 1)
        ' MsgBox ("salesRepEmployeeNumber : " + salesRepEmployeeNumber)
        LIGNE_LUE = Mid(LIGNE_LUE, POSITION + 1)
 
        ' Repérage de l'indicateur creditLimit
        creditLimit = LIGNE_LUE
        ' MsgBox ("creditLimit : " + creditLimit)
 
 
 
        ' Report des informations sur la feuille sélectionnée
        ActiveCell.Value = customerNumber
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = customerName
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = contactLastName
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = contactFirstName
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = phone
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = addressLine1
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = addressLine2
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = city
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = state
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = postalCode
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = country
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = salesRepEmployeeNumber
        ActiveCell.Offset(0, 1).Select                     ' Déplacement latéral vers la droite
        ActiveCell.Value = creditLimit
        ActiveCell.Offset(1, -12).Select                    ' Déplacement latéral vers la droite
 
    Loop
 
    ' Fin du traitement
    Close #1                                               ' Fermeture du fichier ASCII externe
    MsgBox ("Lecture du fichier ASCII terminée")
    ' Sélection cellule A1 dans la feuille CUSTOMERS
    Sheets("CUSTOMERS").Select
    Range("A1").Select
 
 
End Sub

Merci bcp pour vos reponse est ce que vous pouvez m'envoyer votre boite email ou skybe, j'arrive pas joingner le fichier excel avec les macros vers forum.

20/07/2014, 19h36
SfJ5Rpw8

Pour le fichier tu as tous le détail ici : Fichier joint dans vos discussions

pour le reste il y as beaucoup de solution pour lire un fichier .csv... mais vu que tu est parti sur le principe de lire ligne à ligne ton fichier , inspire toi du code à Theze un peu plus haut pour "spliter" ta ligne lue plutôt que ton code avec tous tes InStr, left , Mid, Position...

Bonjour à tous
Une autre approche (enregistreur de macro sur Données externes > A partir de fichier texte)

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
Option Explicit
 
Sub TEST()
Dim Fichier As String
 
Fichier = "C:\Users\VAL\Desktop\CUSTOMERS.txt"        'A adapter
If Dir(Fichier) <> "" Then
    With Worksheets("CUSTOMERS")
        .Range("A1").Resize(, 13) = Array("customerNumber", "customerName", "contactLastName", "contactFirstName", "phone", "addressLine1", "addressLine2", "city", "state", "postalCode", "country", "salesRepEmployeeNumber", "creditLimit")
 
        With .QueryTables.Add(Connection:="TEXT;" & Fichier, Destination:=.Range("A2"))
            .PreserveFormatting = True
            .AdjustColumnWidth = True
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileSemicolonDelimiter = True
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            .WorkbookConnection.Delete
            .Delete
        End With
    End With
End If
End Sub

20/07/2014, 22h08
Marc-L

Il suffit juste d'une instruction pour lire le fichier texte ! Par exemple avec la méthode OpenText …

En ouvrant manuellement ce fichier texte directement dans Excel
en ayant préalablement activé le Générateur de macros, une base de code est livrée sur un plateau !

Un bon code est sans Select ! Par exemple les lignes n°28 & 29 peuvent être remplacées en une seule : Cells.Delete …

Au lieu de chercher la position du point-virgule, utiliser la fonction Split comme dans cette discussion …

heu 2 solution pour toi

Bonjour a tous
je ne vois pas ou est le soucis
1 ere solution

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
 
Option Base 0
Sub test()
    Dim fs, f, fichier, txt
    fichier = "C:\Users\patrick\Desktop\exemple.txt"'a adapter 
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(fichier, ForReading)
    txt = f.readall
    f.Close
  afaire = tableau_text_to_excel(txt)
End Sub
 
Function tableau_text_to_excel(txt) As Variant
Dim tblf(1000, 1000) As Variant, tbl
    txt = Replace(Replace(txt, ";", "/"), Chr(34), "")
    'txt = Replace(txt, "//", "/")'si la colonne vide est une erreur débloquer cette ligne
    tbl = Split(txt, vbCrLf)
    For i = 0 To UBound(tbl)
        col = Split(tbl(i), "/")
        For e = 0 To UBound(col)
             tblf(i, e) = col(e)
        Next
    Next
    Cells(1, 1).Resize(UBound(tblf), e) = tblf ' a dapter 
End Function

2 eme solution
si tu te pert a chaque fois que tu split sur du text pour faire un tableau
une methode peu ortodoxe mais qui a l'avantage d'etre tres simple c'est de ne rien couper de faire aucunne boucle
de ne pas etre obligé de connaitre le nombre de lignes ou de colonne
et de ce contenter de transformer le text en code htmla vec la fonction replace sur le texte et de changer les symboles de supprimer ce qui te convient pas
le tout en une seul ligne pour la transformation
ensuite on se servira du clipboard pour copiercoller les données

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
Sub test2()
    Dim fs, f, fichier, txt
    fichier = "C:\Users\patrick\Desktop\exemple.txt"
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(fichier, ForReading)
    txt = f.readall
    f.Close
    afaire = tableau_text_to_excel2(txt)
End Sub
 
Function tableau_text_to_excel2(txt) As Variant
    txt = Replace(Replace(Replace(txt, vbCrLf, "</td>" & vbCrLf & "<tr>" & vbCrLf & "<td>"), ";", "</td>" & vbCrLf & "<td>"), Chr(34), "")
    With CreateObject("htmlfile")
        .body.innerhtml = "<table>" & vbCrLf & "<tr>" & vbCrLf & "<td>" & txt & "</td>" & vbCrLf & "</tr>" & vbCrLf & "</table>"
        faire = .ParentWindow.clipboardData.SetData("text", .getelementsbytagname("table")(0).outerhtml)
        With Sheets(1): .Cells(1, 1).Select: .Paste: End With
        Selection.HorizontalAlignment = xlLeft
        faire = .ParentWindow.clipboardData.ClearData("text")
        'MsgBox .body.outerhtml
    End With
End Function

Au plaisir

21/07/2014, 01h36
meryem meryem

j'ai un probleme au niveau de les colonnes addressLine2 et state ou il y a des cellules vides parfois alors quand j'excute il reste toujour '' ''. pour les autres colonnes ou toutes les cellules sont remplis ca marche.
je dois ajouter un test ou koi svp aider moi? merci d'avance pour vos reponses et interet
21/07/2014, 02h16
patricktoulon

re

Bonsoir
je te suggere de retourner voir le post #14
21/07/2014, 12h08
Marc-L

Et moi le #6 et le #13 ! …