XL 2016 Export données excel vers fichier texte délimité

[ivan27]

Bonsoir à tous,

Je souhaite exporter un fichier excel vers un fichier texte délimité.
Je n’ai rien trouvé sur le forum.
Je vous communique un fichier de départ et le résultat attendu.
Le fichier délimité comme son nom l’indique à pour chaque champ un début et une fin. Aussi, si des données sont trop longues dans le fichier excel, elles doivent être tronquées.

Description du fichier (colonne, début, fin, longueur)

1 – 1 – 10 – 10
2 – 11 – 20 – 10
3 – 21 – 40 – 20
4 – 41 – 48 – 8 (format date à modifier)
5 – 49 – 56 – 8 (format date à modifier)
6 – 57 – 60 – 4 (format heure à modifier)
7 – 61 – 70 – 10
8 – 71 – 100 – 30

Merci d’avance pour votre aide.

Ivan

 

[Hieu]

Salut,

J'ai initié un bout :

Sub ecriture()
chemin = ThisWorkbook.Path & "\"
Set FSys = CreateObject("Scripting.FileSystemObject")
Set fic = FSys.createTextFile(Filename:=chemin & "test.txt", overwrite:=True)
For i = 1 To 6
fic.WriteLine _
    Range("a" & i) & "        " & _
    Range("b" & i) & "       " & _
    Range("c" & i) & "        " & _
    Range("d" & i) & _
    Range("e" & i) & _
    Range("f" & i) & _
    Range("g" & i) & _
    Range("h" & i)
Next i
End Sub

A compléter

 

[ivan27]

Re bonsoir le forum, Bonsoir Hieu,
Merci pour ta proposition. C'est OK pour la copie mais il subsiste des problèmes notamment de format.
- Les dates sont copiées à l'identique 06/12/2016 et je souhaiterais obtenir ceci 20161206
- Les heures sont copiées avec une conversion décimal (12:20 = 0.51388888888888960) et je souhaiterais obtenir ceci 1220
- Avec cette méthode les espace entre les colonnes dépendent de la longueur du texte de la colonne précédente et je souhaiterais par exemple que le texte de la colonne B débute toujours à la 11eme place quelque soit le nombre de caractères en colonne A.
Cdlt,
Ivan

 

[Hieu]

J'ai initié un bout :

Oui, j'ai pas terminé ^^

Maintenant, il faut terminer :
Gérer les formats, utiliser des répétitions d'espaces, en fonction du nb de caractères de la cellule en question.
Je t'ai donné la philo.
J'attends ton retour.