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

ivan27

XLDnaute Occasionnel
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
 

Pièces jointes

  • excel.xlsx
    8.6 KB · Affichages: 38
  • texte.txt
    498 bytes · Affichages: 36

Hieu

XLDnaute Impliqué
Salut,

J'ai initié un bout :
VB:
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

XLDnaute Occasionnel
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
 

Discussions similaires

M
Réponses
9
Affichages
449
Maikales
M
Réponses
2
Affichages
476

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll