OVH Cloud OVH Cloud

importer un fichier txt

4 réponses
Avatar
LABSURF
Bonjour

J'ai un fichier txt avec une structure suivante

NOM1

ADRESSE1

CP1 VILLE1



NOM2

ADRESSSE2

CP2 VILLE2

Etc.

Comment le récouperer sous Excel de façon a avoir 4 colonnes

NOM ADRESSE CP VILLE

Merci pour aide

4 réponses

Avatar
papou
Bonjour
Données, Données Externes, Importer des Données, Type de fichier sélectionner Fichiers Texte, double-cliquer sur le fichier et choisir les
options qui te conviennent avec l'assistant.
Cordialement
Pascal

"LABSURF" a écrit dans le message de
news:chmmfq$3lv$
Bonjour

J'ai un fichier txt avec une structure suivante

NOM1

ADRESSE1

CP1 VILLE1



NOM2

ADRESSSE2

CP2 VILLE2

Etc.

Comment le récouperer sous Excel de façon a avoir 4 colonnes

NOM ADRESSE CP VILLE

Merci pour aide




Avatar
LABSURF
Merci pour cette réponse mais l'assistant est trop rigide pour remédier à ce
problème car j'obtiens toujours la même répartition que dans le format
initial à savoir

nom

adressse

cp ville

Peut être une autre solution?
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Données, Données Externes, Importer des Données, Type de fichier > sélectionner Fichiers Texte, double-cliquer sur le fichier et choisir les
options qui te conviennent avec l'assistant.
Cordialement
Pascal

"LABSURF" a écrit dans le message de
news:chmmfq$3lv$
Bonjour

J'ai un fichier txt avec une structure suivante

NOM1

ADRESSE1

CP1 VILLE1



NOM2

ADRESSSE2

CP2 VILLE2

Etc.

Comment le récouperer sous Excel de façon a avoir 4 colonnes

NOM ADRESSE CP VILLE

Merci pour aide








Avatar
docm
Bonjour.

Voici une solution en VBA à adapter aux besoins:

Sub tt()
LongueurDuCodePostal = 5
rangee = 1
colonne = 0
fichier = "test.txt"
Open fichier For Input As 1
While Not EOF(1)
Line Input #1, a

If Trim(a) <> "" Then
colonne = colonne + 1

Select Case colonne
Case 1
Cells(rangee, colonne) = a
Case 2
Cells(rangee, colonne) = a
Case 3
Cells(rangee, colonne) = Left(a, LongueurDuCodePostal)
Cells(rangee, colonne + 1) = Trim(Mid(a, LongueurDuCodePostal + 1))
rangee = rangee + 1
colonne = 0
End Select

End If

Wend
Close 1

End Sub

"LABSURF" wrote in message
news:chmt55$d6m$
Merci pour cette réponse mais l'assistant est trop rigide pour remédier à
ce

problème car j'obtiens toujours la même répartition que dans le format
initial à savoir

nom

adressse

cp ville

Peut être une autre solution?
"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Données, Données Externes, Importer des Données, Type de fichier > > sélectionner Fichiers Texte, double-cliquer sur le fichier et choisir
les


options qui te conviennent avec l'assistant.
Cordialement
Pascal

"LABSURF" a écrit dans le message de
news:chmmfq$3lv$
Bonjour

J'ai un fichier txt avec une structure suivante

NOM1

ADRESSE1

CP1 VILLE1



NOM2

ADRESSSE2

CP2 VILLE2

Etc.

Comment le récouperer sous Excel de façon a avoir 4 colonnes

NOM ADRESSE CP VILLE

Merci pour aide












Avatar
Xav
Bonjour LABSURF

Voici un petit code à exécuter une fois le fichier importé(ici, j'ai 4
adresses et elles ont toutes la même longueur et il n'y a pas de lignes
vides entre). C'est à affiner en fonction de ton fichier

Sub test()

Dim i As Integer

For i = 1 To 4

Cells(i, 1) = Cells(i, 1)
Cells(i, 2) = Cells(i + 1, 1)
Cells(i, 3) = Cells(i + 2, 1)
Rows(i + 1).EntireRow.Delete
Rows(i + 1).EntireRow.Delete

Next i

Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:úlse, Comma:úlse, Space:=True, Other:úlse, FieldInfo _
:=Array(Array(1, 1), Array(2, 1))

End Sub


--
@+

Xav
"LABSURF" a écrit dans le message de
news:chmmfq$3lv$
Bonjour

J'ai un fichier txt avec une structure suivante

NOM1

ADRESSE1

CP1 VILLE1



NOM2

ADRESSSE2

CP2 VILLE2

Etc.

Comment le récouperer sous Excel de façon a avoir 4 colonnes

NOM ADRESSE CP VILLE

Merci pour aide