CRÉATION D'UNE BASE ACCESS ET D'UNE TABLE À PARTIR D'UN FICHIER TEXTE (.CSV)

aminert2100 Messages postés 82 Date d'inscription dimanche 15 juin 2003 Statut Membre Dernière intervention 8 mai 2008 - 18 déc. 2003 à 01:24
alaskaa Messages postés 3 Date d'inscription dimanche 16 janvier 2005 Statut Membre Dernière intervention 18 juillet 2007 - 18 juil. 2007 à 00:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/18795-creation-d-une-base-access-et-d-une-table-a-partir-d-un-fichier-texte-csv

aminert2100 Messages postés 82 Date d'inscription dimanche 15 juin 2003 Statut Membre Dernière intervention 8 mai 2008
18 déc. 2003 à 01:24
Le fichier Zip est Introuvable !?! :((
cs_jupiter Messages postés 34 Date d'inscription lundi 5 août 2002 Statut Membre Dernière intervention 9 janvier 2009
27 déc. 2003 à 17:51
Le zip est maintenant sur le site, il avait été refusé par l'automate de vbfrance.
olivlec Messages postés 5 Date d'inscription lundi 24 mai 2004 Statut Membre Dernière intervention 27 mai 2004
24 mai 2004 à 12:08
Bonjour Jupiter,

Ton petit programme m'interresse beaucoup, j'utilise des .CSV à partir desquels je dois créer une base de donnée, mais le problème c'est que dans ton prog, le fichier csv que tu utilises n'est pas séparé par des virgules.

Comment pourrais je faire pour indiquer à ton prog que le séparateur est la virgule et non une colonne d'excel?


Merci d'avance
olivlec Messages postés 5 Date d'inscription lundi 24 mai 2004 Statut Membre Dernière intervention 27 mai 2004
24 mai 2004 à 12:10
Bonjour Jupiter,

Ton petit programme m'interresse beaucoup, j'utilise des .CSV à partir desquels je dois créer une base de donnée, mais le problème c'est que dans ton prog, le fichier csv que tu utilises n'est pas séparé par des virgules.

Comment pourrais je faire pour indiquer à ton prog que le séparateur est la virgule et non une colonne d'excel?


Merci d'avance
aurelskull Messages postés 18 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 27 mai 2005
28 juil. 2004 à 22:37
petit bout de prog tres interressant :
Line Input #1, LignE
TableW() = Split(LignE, ";")

For i = 0 To UBound(TableW)
Ltitre = Ltitre + TableW(i) + " TEXT"
If i <> UBound(TableW) Then Ltitre = Ltitre + ","
Next i

Merci ;)
2 heures que je cherche qq chose de simple pour ca !!