Discussion :

[FaridM]

Bonjour à tous,

j'ai un fichier xslx, avec plusieurs données dedans qui ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
nom | age | ...
julien | 25 | ...
david | 32 | ...

Classique.

Ce que je souhaite, c'est exporter ce fichier en csv avec chaque données entourées de guillemets.

Ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
"nom","age","..."
"julien","25","..."
"david","32","..."

J'ai essayé de modifier le format des cellules en mettant le type personnalisé \"@\". Cela fonctionne bien dans le tableur, par contre à l'export, mes données sont entourées de 2 guillemets (""data"",...). Par contre ça fonctionne avec des apostrophes.

Auriez-vous une solution ?

Merci

[Daniel.C]

Bonjour,

J'ai mis ";" comme séparateur de champ; à modifier au besoin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Export()
    Dim Enrgt As String
    Close #1
    Open "c:\temp\test.csv" For Output As #1
    For Each c In Range([A1], Cells(Rows.Count, 1).End(xlUp))
        Enrgt = ""
        For Each x In Range(Cells(c.Row, 1), Cells(c.Row, Columns.Count).End(xlToLeft))
            Enrgt = Enrgt & """;""" & x.Value
        Next x
        Enrgt = Right(Enrgt, Len(Enrgt) - 2) & """"
        Print #1, Enrgt
    Next c
    Close #1
End Sub

[FaridM]

C'est parfait.

Merci