Discussion :

[krfa1]

Bonjour,

Je dois faire un programme qui doit créer un fichier csv. Mais je ne sais pas comment faire ce ficheir. Si je fais un simple fichier texte que je renomme en fichier csv, est-ce que ça fonctionner?

Il y a-t-il d'autre possibilités

Merci d'avance

Fabrice

[Megaxel]

Ben oui. Un fichier csv, c'est un fichier texte.
Mais à partir de quoi veux-tu le fabriquer? D'où viennent tes données? Si elles sont dans un fichier Excel, fais une recherche sur le forum, tu trouveras ce que tu cherches, cela a été donné plusieurs fois.

[krfa1]

Ben disons que j'ai un fichier excel avec des données dedans. Mais que je dois manipuler ces données pour en extraire quelques-unes, les manipuler, enlever les accents, etc... Donc j'utilise VB.

Maintenant ce que je vais faire, et dites moi si c'est faux, c'est que je vais faire un fichier texte, mettre toutes ces valeures dedans, puis ensuite le renommer en fichier csv!

[Theocourant]

Ben disons que j'ai un fichier excel avec des données dedans. Mais que je dois manipuler ces données pour en extraire quelques-unes, les manipuler, enlever les accents, etc... Donc j'utilise VB.

Maintenant ce que je vais faire, et dites moi si c'est faux, c'est que je vais faire un fichier texte, mettre toutes ces valeures dedans, puis ensuite le renommer en fichier csv!

Salut,

Attention, pour ton fichier csv, il faut utiliser un délimiteur de valeurs...

En France, le délimiteur de valeurs d'un csv est le ";" (point-virgule)...
De manière internationale, le délimiteur est ',' (virgule) ...

Encore une intelligente distinction française

Donc pour créer ton csv, tu récupères tes valeurs et tu les mets en forme de la manière suivante
Pour l'international :

Code :

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

1
2
3
 
Valeur01 , Valeur02 , Valeur03 , ... , Valeur0n
Valeur11 , Valeur12 , Valeur13 , ... , Valeur1n

Pour le français, tu changes les virgules par des points-virgules...

Au fait, il est possible d'enregistrer une feuille d'Excel au format csv directement avec la méthode SaveAs et pour le fileformat c'est xlCVS ou xlCSVMSDOS ou xlCSVWindows, cela dépend de ce que tu veux en faire après...

Bonne continuation

Théo

[ouskel'n'or]

Maintenant ce que je vais faire, et dites moi si c'est faux, c'est que je vais faire un fichier texte, mettre toutes ces valeures dedans, puis ensuite le renommer en fichier csv!

Pas de pb, tu peux faire ça. Si tu veux du code, j'ai un "truc" qui fait ça depuis un fichier Excel

A+

[krfa1]

Alors je vais faire depuis un richtextbox. Mais là ja'i un petit soucis, je voudrais créer mon fichier csv. Mais avec tu texte brut dedans. Et comme ça fait longtemps que je n'ai pas refait de vb, de me rappel juste qu'il faut mettre un argument PlainText, ou un truc comme ça, mais je sais plus la syntaxe exacte. Voilà ce que j'ai fait pour l'instant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
    'controle si le fichier existe. Si ce n'est pas le cas, il le crée
    If Not (existe = Dir(chemin_destination, vbNormal)) = vbEmpty Then
        rtb_fichier_destination.DataFormat = PlainText
        rtb_fichier_destination.SaveFile (chemin_destination)
    End If
 
ou
 
    'controle si le fichier existe. Si ce n'est pas le cas, il le crée
    If Not (existe = Dir(chemin_destination, vbNormal)) = vbEmpty Then
        rtb_fichier_destination.SaveFile (chemin_destination,PlainText)
    End If

Merci d'avance pour votre aide

[Theocourant]

Alors je vais faire depuis un richtextbox. Mais là ja'i un petit soucis, je voudrais créer mon fichier csv. Mais avec tu texte brut dedans. Et comme ça fait longtemps que je n'ai pas refait de vb, de me rappel juste qu'il faut mettre un argument PlainText, ou un truc comme ça, mais je sais plus la syntaxe exacte. Voilà ce que j'ai fait pour l'instant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
    'controle si le fichier existe. Si ce n'est pas le cas, il le crée
    If Not (existe = Dir(chemin_destination, vbNormal)) = vbEmpty Then
        rtb_fichier_destination.DataFormat = PlainText
        rtb_fichier_destination.SaveFile (chemin_destination)
    End If
 
ou
 
    'controle si le fichier existe. Si ce n'est pas le cas, il le crée
    If Not (existe = Dir(chemin_destination, vbNormal)) = vbEmpty Then
        rtb_fichier_destination.SaveFile (chemin_destination,PlainText)
    End If

Merci d'avance pour votre aide

Re,

Dans Msdn j'ai trouvé ceci :

Code :

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

RichTextBox1.SaveFile CommonDialog1.Filename, rtfText

Donc ça devrait donner pour toi

Code :

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

1
2
3
    If Not (existe = Dir(chemin_destination, vbNormal)) = vbEmpty Then
        rtb_fichier_destination.SaveFile chemin_destination, rtfText
    End If

@+

Théo[/code]

[krfa1]

Ah ouai, ça semble correct.

Alors merci beaucoup à tous pour votre aide

A tout bientôt

Bye