[XL-2003] CSV : Des cases vides qui génèrent des points virgules [Résolu]

[orke22]

Bonjour à toutes et tous,

J'ai besoin de votre aide car ça fait 2 semaines que je bloque là-dessus :

J'ai un Excel qui est rempli automatiquement par une application métier.
Le nombre de ligne de ce classeur est variable.

La première ligne tiens sur 10 colonnes et toutes les lignes qui suivent sur 6 colonnes.

Le problème se situe lorsque j'utilise cette macro pour enregistrer mon classeur en CSV :

Code :

1
2
3
4
5
6
7
ActiveWorkbook.Worksheets("Feuil2").Select
Dim chemin, namebon
chemin = "T:\ESHOP\Appro\"
namebon = Worksheets("Params").Cells(7, 2) & ".csv"
ActiveWorkbook.SaveAs Filename:= _
chemin & namebon, FileFormat:=xlCSV, CreateBackup:=False, local:=True
ActiveWorkbook.Close

Comme les lignes sont plus grandes que la première ligne, j'ai 4 points-virgules à la fin de chaque ligne de 6 colonnes. (J'espère que vous me suivez ? )

J'illustre avec des images :



Et en CSV :




J'aimerai me débarrasser de ces points-virgules en fin de lignes ...
Je suis ouvert à tout même un bout de code me permettant de les supprimer ferait l'affaire


D'avance, merci de votre temps et de votre aide.
Jeremy J

[jfontaine]

Bonjour,

Le nombre de ; dépend du nombre de colonne ayant un en-tete.
Pour supprimer les ; , supprime les en-tete qui ne servent pas

[orke22]

Le problème est que je n'ai qu'un seul entête (la première ligne) et elle m'est indispensable ...

Une remarque : excel me rajoute ces points-virgules seulement sur les 15 premières lignes de mon CSV, et au delà, tout est nickel ! Bizarre non ?

[jfontaine]

Si tu utilises cette méthode d'enregistrement, tu n'as pas d'autre choix que de supprimer les en-têtes inutiles.
La structure d'un CSV est si 10 en-têtes alors autant de champ de données séparés par un ;

[Theze]

Bonjour,

Tu peux exécuter cette proc une fois le fichier csv fermé mais je ne vois pas pourquoi des points virgules qui se suivent posent problème mais c'est toi qui es le mieux placé pour en juger :

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
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub Modif()
 
    Dim Tbl() As String
    Dim Ligne As String
    Dim I As Integer
    Dim NF As Integer
 
    NF = FreeFile
    'adapter le chemin et nom du fichier
    Open "D:\Test.csv" For Input As #NF
 
    Do While Not EOF(NF)
 
        Line Input #NF, Ligne
 
            I = I + 1
 
            ReDim Preserve Tbl(1 To I)
            Tbl(I) = Replace(Ligne, ";;;;", "")
 
    Loop
 
    Close #NF
 
    Open "D:\Test.csv" For Output As #NF
 
    For I = 1 To UBound(Tbl)
 
        Print #NF, Tbl(I)
 
    Next I
 
    Close #NF
 
End Sub

Hervé.

[orke22]

Merci beaucoup Theze, je vais faire ça