Discussion :

[Coco47]

Bonjour à tous,

J'ai problème avec un fichier csv, extrait d'une base de donnée, qui se retrouve avec des sauts de ligne dans certains champs. Je crois que c'est un problème assez récurent au vu du nombre posts sur le sujet sur le net mais je n'ai pas trouvé de solution satisfaisante.

Je vous joint le fichier CSV en lui même (j'ai du le renomer en .txt pour pouvoir le joindre mais c'est bien un .csv chez moi)
poteau_export_02122020_084151_746-light.txt

Alors voilà si je l'ouvre avec notepad++ on voit qu'il y a un saut de ligne intempestif à la ligne 8 :


Quand je l'ouvre directement en double cliquant dessus j'ai le résultat suivant :

Donc il semble que nativement excel arrive a déterminé que ce saut de ligne n'est pas une fin de ligne mais est inclus dans un champ.

Par contre quand je veux l'ouvrir en vba je n'arrive pas avoir le même résultat.
Si j'ouvre avec la fonction open :

Code :

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

Workbooks.Open Filename:=wbPath

J'obtient ça :

Non seulement il ne gère pas correctement mon saut de ligne mais en plus il ne gère pas du tout les séparateurs ";".

Si j'utilise la fonction opentext :

Code :

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

1
2
    Workbooks.OpenText Filename:=wbPath, Origin:=xlWindows, _
            StartRow:=1, DataType:=xlDelimited, Semicolon:=True, Local:=True

J'obtient ça :

Donc ici les séparateurs ";" sont bien gérés mais pas le saut de ligne.

Donc je voulais savoir si il existe une manière simple d'ouvrir le fichier en vba comme le fait nativement excel quand je double clic dessus ?

Sur un ancien projet j'avais mis en place une fonction qui ouvrait le fichier avec OpenText puis je cherchais les saut de ligne et je recomposait moi même mon fichier, mais c'est assez lourd mon fichier csv faisant plus de 70k lignes, donc j'aurais espéré trouver une solution plus simple.

[78chris]

Bonjour

Déjà ton fichier est UTF8 donc ton VBA opentext est incorrect

De façon générale il est déconseillé d'ouvrir un csv : Excel le traite automatiquement à la mode américaine et ne comprend ni les dates, ni les nombres au format Français

On l'importe de façon à maîtriser, quitte à casser le lien ensuite

Tu as quelle version Excel ? Depuis 2016 l'import se fait correctement par défaut via PowerQuery qui peut supprimer le retour ligne si nécessaire. Quitte là aussi à casser le lien ensuite si non utile

[Coco47]

Alors au niveau de la version j'ai office 365 version 1808.

Pour les autres remarques je suis pas sur d'avoir compris.

Déjà ton fichier est UTF8 donc ton VBA opentext est incorrect

C'est quoi qui va pas dans mon opentext ?

On l'importe de façon à maîtriser, quitte à casser le lien ensuite

Qu'entendez vous par de façon maitrisé ?

[78chris]

RE

Alors au niveau de la version j'ai office 365 version 1808.

Pour les autres remarques je suis pas sur d'avoir compris.

C'est quoi qui va pas dans mon opentext ? Quand tu importes avec opentext tu dois spécifier le bon encodage : UTF8 ce n'est xlWindows


Qu'entendez vous par de façon maitrisé ? C'est une façon qui permet de définir précisément ce que tu importes : encodage, séparateur, type des champs et format pour les dates et les nombres, afin de ne pas laisser Excel, conçu par les américains pour les format US, faire n'importe quoi et bousiller les données

TU as 365 donc Données, A partir d'un fichier texte/CSV.
Si tu gardes le retour Charger, sinon Transformer les données, ce qui ouvre l'interface PowerQuery où

• tu sélectionnes la colonne Rue, clic droit, Transformer, Nettoyer
• sors par Fermer et Charger dans, Tableau ou bien, si c'est exploité par TCD, directement TCD

[Coco47]

Ok merci je vais regardé pour une meilleure configuration de mon opentext.

Par contre pour votre solution avec PowerQuery c'est un solution manuelle, non ?

En fait à la base mon objectif c'est d'ouvrir des fichiers csv, de les nettoyer en supprimant certaines colonnes et en virant les caractères non-supportés, pour ensuite les sauvegardé et les importer dans une base de donnée postgres.

Moi mon objectif c'est d'automatiser le truc pour avoir à faire le truc pour chaque fichier.

[78chris]

RE

Justement PowerQuery peut traiter en une fois tous les fichier d'un dossier

Un clic pour relancer la requête et tu as tout à jour

Sinon, si chaque fichier doit rester indépendant tu peux combiner PowerQuery et VBA : les object liès à PowerQuery existent depuis la version 2016