Xls-> CSV avec guillemet

Version imprimable

22/03/2010, 13h11
bibi5883

Xls-> CSV avec guillemet

Bonjour,

J'ai un fichier .xls qui arrive de Business Object. Dans BO les format texte et format nombre sont bien définis et se retrouve bien dans le fichier .xls

Je voudrais à partir de ce fichier .xls le mettre en .csv avec le ; come séparateur de décimal. Jusque là pas de problème un enregistrer sous fonctionne.

Par contre il faut que dans le . csv tous les formats textes soient entre guillemet "texte". Je n'arrive pas à le faire par macro. Quelqu'un peut m'aider?

Merci.

Bonjour,

Ci joint un bout de code qui fait ce que tu souhaites.
Il te reste a adapter a ta feuille

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
 
 
Dim i As Long
Dim c As Integer
Dim strChaine As String
 
i = 1 'Ligne de démarrage des données
 
 
Open "d:\test.csv" For Output As #1
 
Do While Range("A" & i).Value <> ""
 
    strChaine = ""
    For c = 1 To 3 '3 étant le nombre de colonne
 
        If strChaine <> "" Then strChaine = strChaine & ";"
 
        If IsNumeric(Cells(i, c).Value) Then
            strChaine = strChaine & Cells(i, c).Value
        Else
            strChaine = strChaine & """" & Cells(i, c).Value & """"
        End If
 
    Next c
 
    Print #1, strChaine
 
    i = i + 1
 
Loop
 
Close #1

23/03/2010, 08h02
bibi5883

Ca marche super bien.

merci de ton aide.:ccool: