Discussion :

[Overflow64]

Bonjour,


je souhaiterais créer un fichier .CSV, j'ai regardé dans la FAQ mais je n'ai rien trouvé ...

[bidou]

c'est un fichier texte dont les données sont séparées par des virgules en format international ou des points virgules en format Français.
Donc ca se crée comme un fichier texte

[Overflow64]

jz sais bien ... comment tu crée un fichier texte ?

[ouskel'n'or]

Hello,
Je ne sais pas si ça va te convenir

Code :

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

1
2
3
4
5
6
7
8
    Open "c:\Fichier.csv" For Output As #1
    For i = 1 To DernièreLigne
 
            Print #1, Ladonnée(i)";";    'Dans lequel ";" est le séparateur de données et le second ; permet de rester sur la même ligne
        Next j
        Print #1, MaLigne    'Provoque un crlf en fin de ligne
    Next i
    Close #1

A+

[Overflow64]

je veux pas ouvrir un fichier csv, je veux le créer mais merci quand meme

[bidou]

http://www.developpez.com/vbasic/tut...tutoriel24.php

[ouskel'n'or]

De toutes façon il y avait une erreur... Je corrige donc :

Code :

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

1
2
3
4
5
6
7
8
Open "c:\Fichier.csv" For Output As #1 
     For i = 1 To DernièreLigne 
            For j = 1 to DernièreColonne -1
                   Print #1, Ladonnée(j)";"; 'Dans lequel ";" est le séparateur de données et le second ; permet de rester sur la même ligne 
            Next j 
            print #1, Ladonnée(j) 'Provoque un crlf en fin de ligne 
     Next i 
Close #1

Et quand tu fais ça, tu crées le csv

A+

[Theocourant]

Salut,

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
Sub test()
    Dim fs, f
    Dim maChaine as String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.CreateTextFile("C:\Fichier.csv",True)
 
    For i=1 to NbLignes
        maChaine = ""
        For j=1 to NbColonnes
            maChaine = maChaine & Cells(i,j).Value & ","
        Next j
        f.WriteLine(maChaine)
    Next i
    f.Close
End Sub

la virgule est pour le format internationnal (cf bidou)

Voilà, j'espère que cela pourra t'aider

@+

Théo

[ouskel'n'or]

Autant pour moi, je fais ça en VBA Excel, pas en VB