Formatage fichier csv:virgule comme séparateur et séparateur des milliers (Montants)

**jeo13** · 02/12/2008, 11h02

Bonjour à tous,

Je travaille actuellement sur un fichier excel donnant les résultats d'un traitement batch en format CSV,qu'il faut que je puisse lire et formater dans un format précis.

Le problème est que le séparateur est une virgule, utilisée aussi dans les montants au format: #,### ...

Pour mieux comprendre, voici un lien vers le fichier sur lequel je bosse:
Fichier - Formatage batch

La première feuille regroupe les données sources.
Les données sont séparées par la virgule. Les montants sont entre guillemets.

La deuxième feuille donne le format attendu en sortie. Les lignes sont regroupées par batch ID (ex: FT104) et on a toujours Currency:AED Input By:bsui04 Authorized By: bsui03 en 1ère ligne.

J'ai trouvé sur le forum des moulinettes pour parcourir le fichier mais le problème majeur se situe au niveau du séparateur utilisé aussi pour le séparateur des milliers dans les montants...

Quelqu'un pourrait-il m'aider?
Merci d'avance!

**neupont** · 02/12/2008, 13h26

La seule solution que je vois, c'est pour chaque ligne de "scanner" chaque caractère, de remplacer les virgules par des points-virgule chaque fois qu'il en trouve une, sauf dans la partie comprise entre les guillemets.
Exemple (à adapter) :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
    i = 1 ' i pointe la ligne en cours dans le classeur excel
 
    Open chemin & nomFich For Input As #1 'on ouvre le fichier CSV
 
    Do While Not EOF(1) 'on boucle dessus jusqu'à sa fin
 
        varGuillemets = False
        maChaine = ""
 
        Line Input #1, maLigne
 
        'recopie des caractères dans une autre variable, avec transformation de la virgule en point-virgule
        For a = 1 To Len(maLigne) 'on "scanne" tous les caractères de la ligne :
 
            If Mid(maLigne, a, 1) = Chr(34) Then 'si le caractère est un guillemet (code ascii 34) :
 
                If varGuillemets = False Then varGuillemets = True 'si on entre dans les guillemets
                Else: varGuillemets = False 'si on sort des guillemets
 
                maChaine = maChaine & Chr(34)
 
            ElseIf Mid(maLigne, a, 1) = "," Then 'si le caractère est une virgule :
 
                If varGuillemets = False Then 'la virgule n'est pas entre les guillemets
                    maChaine = maChaine & ";" 'on remplace la virgule par un point-virgule
                Else ' la virgule est entre les guillemets
                    maChaine = maChaine & "," 'dans ce cas on laisse la virgule
                End If
 
            Else 'autres caractères :
 
                maChaine = maChaine & Mid(maLigne, a, 1)
 
            End If
 
        Next a
 
        'on splite en x champs selon les ";" et on met dans un tableau
        tabString = Split(maChaine, ";")
 
        For a = 0 To UBound(tabString)
            Cells(i, a + 1) = tabString(a)
        Next a
        i = i + 1
    Loop
 
    Close #1

(pas testé

)

**Godzestla** · 02/12/2008, 13h50

Bonjour,

tu peux aussi modifier les délimiteurs en lisant ton fichier .CSV en un bloc, comme expliqué ici

**neupont** · 02/12/2008, 14h17

Envoyé par Godzestla

tu peux aussi modifier les délimiteurs [...]

Mais comment fais-tu ça ? Je ne vois pas ce point dans le fil en question.
Ce serait l'idéal, c'est sûr.

**jeo13** · 02/12/2008, 18h41

Merci beaucoup Neupont pour ton idée et pour ton code.
Je vais le tester pour mon fichier de suite

Par contre, Godzestla, je ne suis pas sûr d'avoir compris l'idée de lecture d'un bloc. J'ai lu le sujet auquel tu renvoies mais je n'ai pas saisi. Comment ferais-tu?

**oOVaveOo** · 03/12/2008, 07h39

Bonjour,

Tu peux aussi modifier l'extension en ".txt", ce qui te permettra de choisir la virgule en séparateur et tes montants étant entre guillemets ne seront pas affectés.

Ca ne devrait pas non plus endommager ton fichier.

**Godzestla** · 03/12/2008, 10h32

Envoyé par neupont

Mais comment fais-tu ça ? Je ne vois pas ce point dans le fil en question.
Ce serait l'idéal, c'est sûr.

Bonjour,

l'explication de ce fil est relative à la lecture du fichier en 1 bloc, pas à la modif des délimiteurs.
Désolé pour l'ambiguité de ma réponse.

**jeo13** · 03/12/2008, 12h15

Bonjour et merci à tous pour vos réponses!

Finalement j'ai adapté le code que Neupont m'a donné:

Outil pour le formatage
La Source en CSV à formater

par contre le problème subsiste avec les montants.
A chaque virgule les montants, les chaines de caractères sont séparées...

**neupont** · 03/12/2008, 13h03

Eh oui bien sûr : sur ton csv il s'avère que chaque ligne commence par des guillemets, ce qui fausse évidemment la logique du traitement...
Bon je regarde ça...

**jeo13** · 03/12/2008, 13h17

Oui en effet lorsqu'on ouvre le fichier depuis le lien cjoint.com
on a, par exemple:

"FT104,National Bank of Abu Dhabi,""19,000,659.72"",bsui04,26/11/2008,BSUI/,Completed"

Alors que si j'ouvre le fichier depuis mon pc j'obtiens pour la même ligne:

FT104,National Bank of Abu Dhabi,"19,000,659.72",bsui04,26/11/2008,BSUI/,Completed

Je ne comprends pas ce qu'il se passe lors du transfert sur cjoint...

Je pense qu'il vaut mieux partir sur la deuxième forme (La feuille où il y a les données s'appelle source dans l'outil)

**neupont** · 03/12/2008, 13h22

Envoyé par jeo13

Alors que si j'ouvre le fichier depuis mon pc j'obtiens pour la même ligne:

Depuis ton PC, tu l'ouvres avec Excel ou avec le notepad (bloc notes) ?
Ouvre-le avec le notepad pour être sûr de la présence ou non des guillemets, c'est primordial d'être sûr dans ton cas.

**jeo13** · 03/12/2008, 13h39

Le fichier .csv je l'avais ouvert avec Excel.

Avec Notepad, oui il y a bien les guillemets:

"FT104,National Bank of Abu Dhabi,""19,000,659.72"",bsui04,26/11/2008,BSUI/,Completed"

**neupont** · 03/12/2008, 13h44

Envoyé par jeo13

Avec Notepad, oui il y a bien les guillemets:

OK, donc c'est qu'ils y sont.
Ceci a l'air de marcher chez moi, j'ai fait une adaptation rapide :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
    Open fichier For Input As #1
 
    Do While Not EOF(1) 'on boucle dessus jusqu'à sa fin
 
        varGuillemets = False
        maChaine = ""
 
        Line Input #1, maLigne
 
        'on remplace les doubles guillemets par un "!" qui servira à repérer le champ au format nombres
        maLigne = Replace(maLigne, Chr(34) & Chr(34), "!", , , vbTextCompare)
 
        'on supprime les guillemets restants
        maLigne = Replace(maLigne, Chr(34), "", , , vbTextCompare)
 
        'recopie des caractères dans une autre variable, avec transformation de la virgule en point-virgule
        For a = 1 To Len(maLigne) 'on "scanne" tous les caractères de la ligne :
 
            If Mid(maLigne, a, 1) = "!" Then 'si le caractère est un point d'exclamation
 
                If varGuillemets = False Then
                    varGuillemets = True 'si on entre dans les "!"
                Else
                    varGuillemets = False 'si on sort des "!"
                End If
 
                'maChaine = maChaine & Chr(34)
 
            ElseIf Mid(maLigne, a, 1) = "," Then 'si le caractère est une virgule :
 
                If varGuillemets = False Then 'la virgule n'est pas entre les guillemets
                    maChaine = maChaine & ";" 'on remplace la virgule par un point-virgule
                Else ' la virgule est entre les guillemets
                    maChaine = maChaine & "," 'dans ce cas on laisse la virgule
                End If
 
            Else 'autres caractères :
 
                maChaine = maChaine & Mid(maLigne, a, 1)
 
            End If
 
        Next a
 
        'on splite en x champs selon les ";" et on met dans un tableau
        tabString = Split(maChaine, ";")
 
        For a = 0 To UBound(tabString)
            Cells(i, a + 1) = tabString(a)
        Next a
        i = i + 1
    Loop
 
    Close #1

Ceci dit, chez moi Excel vire les virgules en colonne C pour changer le séparateur de milliers. Si tu veux absolument garder les virgules comme séparateur de milliers, il faut changer le format de la colonne C soit en texte (auquel cas il ne touche pas à ce qu'on lui envoit), soit en un format numérique spécifique où le séparateur de milliers est spécifié comme étant la virgule.

**jeo13** · 03/12/2008, 13h54

Yes merci beaucoup c'est parfait!

ça ira comme ça, je te remercie beaucoup pour ton aide!

En espérant que ça puisse servir à d'autres personnes dans le même cas aussi

Formatage fichier csv:virgule comme séparateur et séparateur des milliers (Montants)

Macros et VBA Excel

Discussions similaires

Partager

Partager