Bonsoir le forum,
A l'aide de cette fonction, je créé un fichier csv.
Lors de l'ouverture avec le BLOCNOTES tout semble correct.
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 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
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.
Partager