Import texte par ligne

Salut Pierre,

Pourrais-tu préciser en quoi consistent les retours à la ligne dans ton texte original ?

Le plus simple serait de joindre un petit exemple pour te proposer la solution la plus adéquate.

Ândré.

Bonjour André,

Pour tout préciser, j'exporte mais données depuis Excel dans un fichier texte avec la procédure ci-dessous. Le but étant de stocker le chemin et le nom de photos pour pouvoir ensuite récupérer ces informations beaucoup plus tard par l'opération inverse
Le chemin et le nom des photos est trés variable en longueur d'enregistrement.
Les cellules de réception du chemin et des noms de photos sont répartis sur ma feuille.

Dim Chemin, Fic
Dim N As Integer
Dim Nom_Fichier As String
Chemin = Range('Routage').Value
Nom_Fichier = Chemin & 'ListePhotos.txt'

'Verifie si fichier existe si oui destruction du fichier

If Dir(Nom_Fichier, vbNormal) > '' Then
MsgBox 'le fichier ' & Nom_Fichier & ' existe'
Kill (Nom_Fichier)

Else
MsgBox 'le fichier ' & Nom_Fichier & ' n'existe pas'
End If

Open Fic & 'ListePhotos.txt' For Append As #1

N = Range('ComptLignes').Value

Write #1, Chemin
Range('NomFic').Select
lig = ActiveCell.Row
col = ActiveCell.Column

For I = 1 To N

Fic = ActiveCell.Value
Write #1, Fic
Range(Cells(lig + I, col), Cells(lig + I, col)).Select
Next I


Close #1

Sur cette procédure je n'ai effectivement pas l'information sur les retours

Bon aprés midi

Pierre

bonjour Pierre, André

le plus simple ne serait il pas de changer la procédure d'export du fichier
plutot que d'exporter vers un .TXT
mieux vaudrait exporter vers un fichier de type .CSV dont le séparateur de champ serait le ;

du coup plus de pb à l'import

bonjour pierre, andré, loic.

🙂

il faudrait voir la structure du txt pour pouvoir répondre correctement.

Par contre en imaginant un fichier texte comportant sur chaque ligne des strings séparés par des virgules, on peut utiliser ce type de code :

Sub Bouton1_QuandClic()
Dim lig As Integer
Dim col As Integer
Dim texte1 As String, texte2 As String, texte3 As String, texte4 As String
Open 'ListePhotos.txt' For Input As #1
lig = ActiveCell.Row
col = ActiveCell.Column
Do While Not EOF(1)
    Input #1, texte1, texte2, texte3, texte4
    Cells(lig, col) = texte1
    Cells(lig, col + 1) = texte2
    Cells(lig, col + 2) = texte3
    Cells(lig, col + 3) = texte4
    lig = lig + 1
Loop
Close #1
End Sub

Cliquez pour agrandir...

Salut

Bonjour Loïc et Hervé

Je vais essayer vos deux solutions, texte en csv mais aussi la procédure de Loïc.
Merci à vous deux

Bonne soirée

Pierre

J'ai adopté la solution de Hervé, elle fonctionne trés bien.

Encore un grand merci à vous trois pour vous être penché sur mon problème.

Bonne soirée

Pierre