Lecture de fichiers CSV et souci de découpage des lignes..

Version imprimable

17/10/2018, 09h49
TeteDeGnou

1 pièce(s) jointe(s)

Lecture de fichiers CSV et souci de découpage des lignes..

Bonjour à toutes et tous,
Je ne suis pas un Pro du VBA mais jusqu'à ce jour, j'avais toujours trouvé des solutions à mes problèmes en fouillant dans les divers forums, là, je sèche...
Je vais essayer de bien vous décrire mon problème.
Des fichiers plats sont générés sur un Mainframe IBM (Mvs) et envoyés sur un serveur Windows, nommés en .csv. Quand je lis ces fichiers avec un Open XXX For Input, tout se déroule très bien et chaque ligne de mon .csv est écrite en colonne A de ma feuille Excel.
Le but étant que les utilisateurs finaux puissent utiliser mon tableur en lisant les fichiers à partir de notre NAS, j'ai décidé d'envoyer ces fichier directement vers celui ci plutôt que vers le serveur Windows initial et là, rien ne va plus. La même fonction me colle tout le contenu du fichier lu dans 1 seule cellule mais malgré tout, formattée comme si on avait saisi chaque ligne dans la cellule avec un ALT pour passer à la ligne suivante dans cette même cellule.
Le plus drôle est que si je récupère un fichier du serveur Windows en Copier/Coller sur le NAS, tout se déroule normalement.
J'ai besoin, pour des problèmes de performance (1 fichier par jour sur 13 mois) que la lecture de ces fichiers se fassent par un Open xxx For Input, j'ai essayé avec d'autres méthodes mais le simple fait d'ouvrir le .csv pour le copier/coller et le refermer est trop lente.
Je vous joins 2 fichiers Input.
Le 20181013 qui a été transféré vers le serveur Windows puis recopié vers le NAS et qui fonctionne très bien.
Le 20181016 qui a été transféré directement vers le NAS et qui pose problème.
On voit en les ouvrant avec Notepad que la structure n'est pas la même mais je n'arrive pas à le gérer correctement pour le 20181016.
En vous remerciant par avance pour le temps que vous prendrez à éclairer mes lumières..
17/10/2018, 09h57
patricktoulon

re

re
je les ai ouvert totu les deux avec open for input as "x et il se lisent tres bien
c'est de ta macro qui fait le boulot que l'on a besoins c'est certainement la que tu a un soucis

re
apres ouverture avec notpad +
tes saut de lignes dans l'un sont des vbcrlf et l'autre sont des chr(10) d'ailleurs ont le voit bien quand on les ouvre avec le bloknote
conclusion ouvre les avec open for mais en binary acces read
tes sauts de ligne seront des chr(10) dans les deux
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub lecture1() ' recupe le texte complet avec binary acces read Dim laChaine As String, x, fichier As String fichier = "C:\Users\polux\DeskTop\20181016.csv"'change le chemin de ton fichier ici x = FreeFile Open fichier For Binary Access Read As #x laChaine = String(LOF(x), " ") Get #x, , laChaine Close #x MsgBox laChaine mess = mess & "il y a " & UBound(Split(laChaine, Chr(10))) & " lignes" & vbCrLf mess = mess & "il y a " & UBound(Split(Split(laChaine, Chr(10))(1), ";")) + 1 & " colonnes" MsgBox mess End Sub
pas de soucis avec les deux j'ai bien 28 lignes et 6 colonnes dans l'un et 43 dans l'autre sur 6 colonnes

edit:
il te sera tres facile apres d'en faire un tableau directement avant de le retranscrire dans le sheets
creation d'un tableau avec split un redim sur le nombre de colonne et replacement dans une boucle du split par les ";"

teste ca sur ces deux fichiers qui donnent un resultat différent et regarde sur le sheets le resultat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub lecture1()    ' recupe le texte complet  avec binary acces read
    Dim laChaine As String, x, fichier As String, tableau(),i,col,nbligne,nbcol
    fichier = "C:\Users\polux\DeskTop\20181013.csv"
    x = FreeFile
    Open fichier For Binary Access Read As #x
    laChaine = String(LOF(x), " ")
    Get #x, , laChaine
    Close #x
    MsgBox laChaine
    'mess = mess & "il y  a " & UBound(Split(laChaine, Chr(10))) & " lignes" & vbCrLf
    ' mess = mess & "il y a " & UBound(Split(Split(laChaine, Chr(10))(1), ";")) + 1 & " colonnes"
    'MsgBox mess
    base = Split(laChaine, Chr(10))
    nbligne = UBound(base): nbcol = UBound(Split(base(1), ";"))
    ReDim tableau(0 To nbligne, 0 To nbcol)
    For i = 0 To nbligne - 1
        For col = 0 To nbcol
            tableau(i, col) = Split(base(i), ";")(col)
        Next
    Next
    Cells(1, 1).Resize(UBound(tableau) + 1, UBound(tableau, 2) + 1) = tableau' retranscription en tableau sur le sheets 
End Sub

17/10/2018, 14h06
TeteDeGnou

Merci Patrick,
Je regarde ta solution dès que j'ai un peu de temps, j'éspère avant la fin de la semaine.
Vu tout ce que j'ai pu lire sur ces sujets dans les forums, j'étais à peu près sûr que tu serais celui qui allait trouver la solution à mon problème... :applo: