Discussion :

[damsmut]

Bonjour,

Cette partie de code me permet de créer une connection vers un fichier texte type csv, avec comme séparateur un point virgule.

Code :

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

1
2
3
4
5
6
    Set Conn = New ADODB.Connection
        With Conn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Data Source=" & Fichier & ";Extended Properties='text;HDR=NO;FMT=Delimited'"
            .Open
        End With

Maintenant comment faire, si le même fichier n'a pas un point virgule comme séparateur mais un autre caractère, par exemple |


Merci

Damsmut

[loufab]

Bonjour,

Normalement tu devrais l'avoir ici :

Code :

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

HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Jet \ 4.0 \ Engines \ Text

Si tu veux gérer des sources de fichiers Textes sans modifier la BDR utilise plutot les Schema.ini (voir le MSDN)

Cordialement,

[damsmut]

ok merci ça marche avec le schema.ini

par contre nouveau problème... j'ai des champs dons les valeurs commencent par 0 : exple 0123456 (il s'agit d'une référence - le 0 est important !)

Il me supprime les 0 devant !! comment faire pour éviter cela !?

Merci
A+
Damsmut

[loufab]

Seul le Texte stocke les 0 non significatif.

C'est le problème de ne pas controler son format d'entré. Donc Schema.ini ou format préenregistré.

[damsmut]

Effectivement schema.ini

J'ai fait comme ça et ça marche. Pour les 0. J'ai mis les champs en char.

Code :

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

1
2
3
4
5
6
7
[test.txt]
ColNameHeader=False
CharacterSet=ANSI
Format=Delimited(|)
Col1="F1" char
Col2="F2" char
Col3="F3" char

merci
a+