Anomalie Fichier csv

Bonsoir le forum, :D

A l'aide de cette fonction, je créé un fichier csv.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function EcrireCSV(Chemin As String, Fichier As String, Table, Nbcol As Integer) As Boolean EcrireCSV = False 'Close #1 Open Chemin & Fichier For Output As 1 For p = LBound(Table) To UBound(Table) ab = Empty For n = 0 To Nbcol ab = ab & ";" & Table(p, n) Next n 'suppression 1er ";" ab = Mid(ab, 2, Len(ab)) 'ecrire Print #1, ab Next p Close #1 EcrireCSV = True End Function

---

Lors de l'ouverture avec le BLOCNOTES tout semble correct.

Par contre en ouvrant avec EXCEL, j'ai des lignes vides qui s'intercalent, empéchant tout travail avec les fonctions d'EXCEL (filtres par exemple).

Quelqu'un a t-il déjà rencontré ce souci et comment a t-il résolu ce problème?

Merci d'avance.

Bonjour,

A tout hazard, peut on trouver dans tes données, de la variable "table", des retour à la ligne sans texte derrière?
Dans ce cas tu aurais une ligne vide

Bonsoir jfontaine,

J'y ai pensé et j'ai contrôlé.

Ma source (fichier csv) qui alimente ma table comporte env 14000 lignes.
Je les retrouve bien dans ma table.

Je réalise des ajouts ce qui me porte ma table à 28 colonnes.

J'ai testé en mettant un contrôle sur mon 1er champ qui ne doit jamais être vide et je n'ai pas se STOP de la macro.

Si j'avais une ligne vide, ne serait elle pas visible avec le blocnotes?

Merci pour la réponse

bonsoir,

pour examiner ton fichier n'as tu pas un autre éditeur de texte style Notepad++ qui te permet de voir certains caractères de contrôles masqué par notepad..

Bonsoir bbil,

Si j'ai, je vais tester demain au boulot.

A ton avis que dois-je trouver?

Je pense que tu n'as pas posé la question innocemment?

Merci pour la suggestion.

non je cherche, je pensais à un caractére LF ou CR perdu seul au milieu de ta ligne ...

Bonsoir bbil,

En fait ma ligne représente bien les 28 colonnes de ma table.

Je n'ai pas d'interruption dans la séquence de création de la ligne.

En plus, le volume de lignes blanches dans EXCEL n'est pas fixe, des fois 12 et puis 3 ou 4 écrites puis de nouveau 9 vides.

En écrivant, je pense à une chose, mon fichier EXCEL, si je me souviens, quand on cherche la fin avec l’ascenseur descend jusqu'au volume de ma table (env 14000), est-il possible que EXCEL ne m'affiche pas de texte (même si présent) c'est une supposition car dans la barre de formule il me semble ne rien avoir vu.

Merci.

Bonjour le forum,

J'ai ouvert le fichier avec NOTEPAD++ et, comme bbil le supposait, j'ai des lignes avec "CR LF" en fin de ligne et d'autres avec "CR" uniquement.

Vu que je travaille avec une boucle, comment est-ce possible?

Dans la source en csv qui sert à alimenter ma table je n'ai que "LF", cela peut-il avoir une incidence?

Pour préciser, je charge une table à l'aide du fichier csv, je réalise des opérations de contrôle, d'ajout de données, de comparaison de tri croissant de ma table et je la retranscris à l'aide de la fonction postée.

Merci d'avance

Essai avec en remplacant le retour par un espace

Code:

---

Print #1, replace(ab,chr(10)," ")

---

salut, ils sont ou ces caractères LF, CR.. en fin de ligne ? ne viennent-ils pas de ton fichier csv ? comment importe tu ce fichier ?

Bonjour bbil et jfontaine,

Grâce à vous j'ai trouvé.
Le caractère CR se trouvait dans la dernière colonne de mon tableau pour une raison qui m'échappe. J'ai appliqué une condition supplémentaire avec:

Code:

---

Replace(table(i),chr(13),"")

---

Mon fichier a repris un aspect normal.

Savez-vous comment ce caractère a pu se répéter jusqu'à 27 fois par ligne dans la table alors que certaines ne sont pas touchées?

Merci d'avance cela me permettra d'éviter la répétition.

Bonsoir le forum, :D

J'ai modifié ma fonction ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Function EcrireCSV(Chemin As String, Fichier As String, Table, Nbcol As Integer) As Boolean EcrireCSV = False 'Close #1 Open Chemin & Fichier For Output As 1 For p = LBound(Table) To UBound(Table) ab = Empty For n = 0 To Nbcol 'pour controle de presence du chr(13) dans tableau If n = Nbcol Then de = Len(Table(p, n)) If de > 0 Then Table(p, n) = Replace(Table(p, n), Chr(13), "") End If End If ab = ab & ";" & Table(p, n) Next n 'suppression 1er ";" ab = Mid(ab, 2, Len(ab)) 'ecrire Print #1, ab Next p Close #1 EcrireCSV = True End Function

---

Je vais la tester demain et cloturerai la post si tout semble OK.

Bonjour le forum, :D

Les modifications apportées ont corrigés l'anomalie.

Le code fonctionne, par contre je ne sais pas ce qui a provoqué.

Citation:

---

Envoyé par bbil

salut, ils sont ou ces caractères LF, CR.. en fin de ligne ? ne viennent-ils pas de ton fichier csv ? comment importe tu ce fichier ?

---

Citation:

---

Envoyé par Duddy

Bonjour le forum, :D

Les modifications apportées ont c contre je ne sais pas ce qui a provoqué.

---

Bonjour bbil,

Le caratère CF se trouvait dans la dernière colonne du tableau.

Sur NOTEPAD cela donnait (ce n'est pas un COLLER mais un ré-écriture)

Citation:

---

...;blabla;CR
CR
CR
CR
CRLF

---

Je ne m'explique pas comment is sont arrivés là, j'ai utilisé cette fonction pour lire le csv:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function LireCSV(Chemin As String, Fichier As String) Dim A As New Scripting.FileSystemObject Dim T As TextStream 'ouverture du fichier Set T = Nothing Set T = A.OpenTextFile(Chemin & "\" & Fichier, ForReading) temp = T.Read(A.GetFile(Chemin & "\" & Fichier).Size) If Left(Fichier, 4) = "GRD_" Then Temp1 = Split(temp, Chr(10)) Else: Temp1 = Split(temp, Chr(13) & Chr(10)) End If LireCSV = Temp1 Set T = Nothing End Function

---

J'ai une condition dans la fonction car j'ai un fichier csv qui arrive en source initiale avec uniquement le caractère LF en fin de ligne.

ensuite j'utilise ce code pour remplir mon tableau:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Temp1 = LireCSV(vChemin, "Base_X06.csv") 'recupération des données de la base Erase tabx06temp ReDim tabx06temp(UBound(Temp1), nbColTabBase) For x = 0 To UBound(Temp1) - 1 temp2 = Split(Temp1(x), ";") For y = LBound(temp2) To nbColTabBase 'pour controle de presence du chr(13) dans tableau If y = nbColTabBase Then de = Len(temp2(nbColTabBase)) If de > 0 Then temp2(nbColTabBase) = Replace(temp2(nbColTabBase), Chr(13), "") End If End If tabx06temp(x, y) = temp2(y) Next y Next x

---

Je n'avais pas la recherche du CHR(13) dans le code.

et bien sur je ré-écris avec la fonction que j'avais posté en premier.

Merci encore

Bonjour,

je dirais que tu te complique un peu trop la vie pour lire ton fichier texte , essai:

Code:

---

1 2 3 4 5 6 7 8

Function LireCSV(Chemin As String, Fichier As String) Dim A As New Scripting.FileSystemObject Dim T As TextStream 'ouverture du fichier Set T = A.OpenTextFile(Chemin & "\" & Fichier, ForReading) LireCSV = T.ReadALL Set T = Nothing End Fun

---

Bonjour bbil,

Je te remercie et vais modifier.

Merci pour tout, je pense que je peux mettre "résolu" maintenant.

Bonnes vacances à tous