Bonsoir le forum,

A l'aide de cette fonction, je créé un fichier csv.
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
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.