Discussion :

[Karshick]

Bonjour,

Comme l'indique le titre du sujet, j'ai un soucis avec la fonction EOF sur les fichiers csv.

Voici le besoin : je dois, à partir d'une macro excel, pouvoir exploiter des CDR (Call Detail Record). Ma macro sert donc à les récuperer depuis le serveur et ensuite les ouvrir puis faire le tri.
Je bloque entre l'étape d'ouverture du fichier et remplissage.

Pour faire ce remplissage (je n'ai pas encore fait un quelconque tri, je cherche juste à remplir une feuille excel avec le fichier csv), je me sers d'une boucle qui bouclera tant que je ne suis pas en fin de fichier.

Problème : cette boucle s’arrête dès la fin de la première ligne.

Voici la fonction assurant l'ouverture du fichier et son remplissage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Function fillSheet(path As String)
    Dim ws As Worksheet
 
    path = Mid(path, 2, Len(path) - 2) 'Je retire les " en debut et fin de chaine
    Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "Test"
    Open path For Input As #1
    row_number = 0
    Do Until EOF(1)
        Line Input #1, linefromfile
 
        lineitems = Split(linefromfile, ";")
 
        ActiveCell.Offset(row_number, 0).Value = Mid(lineitems(1), 2, Len(lineitems(1)) - 2) 'Je retire les " en debut et fin de chaine
        ActiveCell.Offset(row_number, 1).Value = Mid(lineitems(1), 2, Len(lineitems(1)) - 2) 'Je retire les " en debut et fin de chaine
        ActiveCell.Offset(row_number, 2).Value = Mid(lineitems(2), 2, Len(lineitems(2)) - 2) 'Je retire les " en debut et fin de chaine
 
        row_number = row_number + 1
    Loop
 
    Close #1
End Function

Merci d'avance.

[Karshick]

Okay j'ai compris.

En gros, les lignes ne sont pas séparés par des retour à la ligne mais par des espaces...
Hmm...

[Invité]

bonjour,
les champ texte sont encadrés pars des double cote ["]
"Champ1";"Champ2"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Function fillSheet(path As String)
    Dim ws As Worksheet
 
    path = Mid(path, 2, Len(path) - 2) 'Je retire les " en debut et fin de chaine
    Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "Test"
    Open path For Input As #1
    row_number = 0
     While EOF(1) = False
        Line Input #1, linefromfile
 
        lineitems = Split(Replace(linefromfile, Chr(34), ""), ";") 'je remplace le double cote par du vide! et je split
        ActiveSheet.Range(ActiveCell.Offset(row_number, 0), ActiveCell.Offset(row_number, UBound(lineitems) - 1)) = lineitems 'maintenant je peut affecter la totalité du tableau en une passe! 
'        ActiveCell.Offset(row_number, 0).Value = Mid(lineitems(1), 2, Len(lineitems(1)) - 2) 'Je retire les " en debut et fin de chaine
'        ActiveCell.Offset(row_number, 1).Value = Mid(lineitems(1), 2, Len(lineitems(1)) - 2) 'Je retire les " en debut et fin de chaine
'        ActiveCell.Offset(row_number, 2).Value = Mid(lineitems(2), 2, Len(lineitems(2)) - 2) 'Je retire les " en debut et fin de chaine
 
        row_number = row_number + 1
    Wend
 
    Close #1
End Function

[Karshick]

Merci pour la réponse.

Le soucis ne vient pas des champs texts en eux même, mais de la facon dont sont délimités les lignes de mon fichier csv.

Je croyais au début que ces lignes étaient délimitées par des espaces mais finalement ce n'est pas le cas. Elle sont délimités par ...autre chose (c'est forcement autre chose vu que lorsque j'execute manuellement le fichier avec excel, celui ci repositionne bien tout).
J'essaie maintenant de remplacer ce... truc par des \n (nouvelle ligne).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 lineitems = Replace(lineitems, Chr(13), Chr(10)) 'dans l'hypothese que ce soit un retour charriot

[Menhir]

Pourquoi ne te simplifies-tu pas la vie en faisant un simple Workbooks.Open qui ouvrira ton fichier CSV en tant que classeur Excel ?

[Karshick]

Merci pour vos réponses

Pourquoi ne te simplifies-tu pas la vie en faisant un simple Workbooks.Open qui ouvrira ton fichier CSV en tant que classeur Excel ?

Je compte trier les informations présentes dans le fichier csv : tout ne m'est pas utile.
Je suppose que c'est plus rapide à faire en récupérant directement les colonnes voulues qu'en supprimant après avoir ouvert le classeur. (surtout que des colonnes, j'en ai un paquet... alors qu'il n'y en a au final peu qui m'interessent vraiment)

Voici un exemple de fichier (c'est long), je n'ai pris que les deux premières lignes

"RECORDID";"STARTUNIXTIME";"DATETIMEEND";"HOLDDURATION";"NBHOLD";"RINGDURATION";"TALKDURATION";"CONFDURATION";"CALLINITIATOR";"CALLERNUMBER";"CALLEREXTERNALNUMBER";"DIALEDNUMBER";"CALLEDNUMBER";"CALLEDEXTERNALNUMBER";"CALLERNAME";"CALLERDEVICENAME";"CALLEDNAME";"CALLEDDEVICENAME";"IPBXNAME";"COMMUNITYNAME";"AAASESSIONID";"CALLTYPE";"TERMINATIONCAUSE";"DIAGNOSTIC";"CDRSTATUS";"ACCOUNTCODE";"DEPARTMENT";"SITE";"CALLID";"BILLINGACCOUNTCUSTOM1";"BILLINGACCOUNTCUSTOM2";"REDIRECTIONCAUSE";"REDIRECTTIMESTAMP";"NEXTRECORDID";"CALLERTYPE";"CALLEDTYPE";"CALLFLOWID";"OWNERADMTIVEDOMAINID";"CREATETIMESTAMP";"DATETIMEENDGMT";"JOKERFIELD";"ISSUERIP";"SIPCALLID1";"SIPCALLID2";"CALLTAG";"CALLRECORDINGNAME";"FAXPAGES";"EXTERNALCALLID";"CALLTYPEFORBILLING"
"CDF";"1411*****";"2014-09-28 11:40:56";"0";"0";"2";"2";"0";"0627*****";"0627*****";"0627*****";"+33172*****";"200";"01721*****";"33627*****";"[GATEWAY].GwOpenVoice";"";"[csip-snom-821].000*******-master-1";"TC1";"CDFE";"";"E_Incoming";"SRC_DSC";"";"N";"";"Default";"";"CId[493756]";"CFDE";"CFDE";"CFAL";"141189*****7";"CDFE.1411******21.virt.8524.[200]";"EXTERNAL_NUMBER";"STATION";"CDFE.141189******9.conn.493758.[062******0]";"0.9.";"1411897******";"";"";"172.******:50**";"543d9dc*********23b9352402502@94.********";"";"";"";"0";"";"EC"

Comme vous pouvez le constater, entre "CALLTYPEFORBILLING" et "CDF", il y a un caractere spécial qui est n'est pas consideré, dans ma macro, comme un changement de ligne (du coup, au lieu d'avoir un plusieurs lignes de 49 colonnes, il considère que j'en ai une seule avec 2000+ colonnes)

[Invité]

ça n'est jamais de retour chariot des tabulation ??

Bonjour,
donne un exemple de CSV!
si il faut que tu bidonne les données utilise Notepad++ car Notepad va replacer les tabulations par des espaces! Notepad++ est gratuit!

[Menhir]

Je viens de faire le test et il me semble que NotePad conserve les tab.
Tu ne confondrais pas avec l'éditeur VBA ?