import des espaces devant référence csv --> Access

Version imprimable

18/08/2010, 17h48
vinz4444

import des espaces devant référence csv --> Access

Bonjour,
Sous Access2007, je n'arrive pas, en important les données à partir d'un fichier *.csv, à conserver le ou les espace(s) se trouvant au début d'une chaîne de caractère de format texte.8O

Est-ce que quelqu'un sait faire ceci ?

D'avance merci pour votre réponse !:mouarf:

Vinz4444
19/08/2010, 03h27
marot_r

Tes chaînes de caractères sont-elles délimités par des " ou un autre caractères ?

Si oui, il va sans doute falloir faire du code VBA qui va faire l'import à la place des routines de Access.

A+
19/08/2010, 07h56
vinz4444

Non les chaînes sont séparées par des ; comme identifiant de colonnes dans le *.csv

Il y a des espaces avant et après pour ce champ. Je ne veux récupérer que les espaces avant...

Oui ça ne me dérange pas d'utiliser une macro VBA ou SQL dans Access mais je ne connais pas de fonctions capables de faire cela ?

Une idée ?
19/08/2010, 19h01
marot_r

Fait un essai en ajoutant des délimiteurs de chaîne de caractères comme les guillemets et si cela marche voit si le logiciel qui te fourni le CSV peut les ajouter. C'est parfois une option disponible.

Sinon il va falloir faire du code qui lit le fichier ligne à ligne et qui découpe sur les ";".
On peut utiliser Split() pour cela qui génère un tableau d'éléments. Une fois le tableau créé il va falloir mettre les éléments 1 par 1 dans les champs correspondant. Bref c'est quand même pas mal de travail pour une lecture de fichier texte.

A+

salut marot_r ;) et bienvenu vinz4444,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub ImportCSV()
    Source = "C:\temp\Classeur1.csv"
    Separateur = ";"
    Destination_table = "Classeur1"
    Destination_champs = "champ1,champ2,champ3,champ4"
    Destination_champs_type = Array("""", "", """", "#")    ' type: texte, numérique, texte, date
 
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(Source, 1)
 
    DoCmd.SetWarnings False
    Do While f.AtEndOfStream <> True
        Champs = Split(Replace(Replace(f.ReadLine, "'", "''"), """", """"""), Separateur)
        For i = 0 To UBound(Champs)
            Champs(i) = Destination_champs_type(i) & Champs(i) & Destination_champs_type(i)
        Next i
        LeSQL = Join(Champs, ",")
        LeSQL = "INSERT INTO " & Destination_table & "(" & Destination_champs & ") VALUES (" & LeSQL & ")"
        DoCmd.RunSQL LeSQL
    Loop
    DoCmd.SetWarnings True
    f.Close
End Sub

la table doit exister préalablement, le type/nombre de champs correspondre, et tant qu'à faire que l'emplacement fichier soit correct...

;)

23/08/2010, 18h44
marot_r

Merci Vodiem pour cette éléguante solutions.

A+
24/08/2010, 09h10
vinz4444

Au risque de passer pour un amateur...

Bonjour,
MERCI pour cette réponse !
Cependant je ne suis pas informaticien et là je ne vois pas trop quoi faire avec ceci...
C'est à coller dans une requête SQL dans ACCESS ?
Est-ce que je peux avoir quelques infos sur comment ça fonctionne exactement (des lignes explicatives ?...).
Vraiment désolé pour mon amateurisme...
A bientôt j'espère...
Vinz4444
24/08/2010, 16h31
vodiem

merci marot_r, ca fait plaisir de connaitre des personnes qui savent apprécier du code. :D

vinz4444, tu peux par exemple créer un bouton dans un formulaire et recopier ce code (sans les déclaration Sub... et End Sub) dans l'événement 'sur click'.
adapte les 5 premières lignes à ton cas et test...

ps: n'oublie pas que la table et sa structure doivent être préalablement crée.

;)

Bonjour,

Vodiem, dans un élan lyrique :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub ImportCSV()
    Source = "C:\temp\Classeur1.csv"
    Separateur = ";"
    Destination_table = "Classeur1"    Destination_champs = "champ1,champ2,champ3,champ4"
    Destination_champs_type = Array("""", "", """", "#")    ' type: texte, numérique, texte, date
    
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(Source, 1)
    
    DoCmd.SetWarnings False
    Do While f.AtEndOfStream <> True
        Champs = Split(Replace(Replace(f.ReadLine, "'", "''"), """", """"""), Separateur)
        For i = 0 To UBound(Champs)
            Champs(i) = Destination_champs_type(i) & Champs(i) & Destination_champs_type(i)
        Next i
        LeSQL = Join(Champs, ",")
        LeSQL = "INSERT INTO " & Destination_table & "(" & Destination_champs & ") VALUES (" & LeSQL & ")"
        DoCmd.RunSQL LeSQL
    Loop
    DoCmd.SetWarnings True
    f.Close
End Sub

Mouais, pas parfait mais pas mal pour un p'tit jeune... :aie:

@+

Philippe

24/08/2010, 17h43
vodiem

lol, ca fais plaisir de te revoir parmi nous Philippe !

je te répond avec mon élan Lyrie que:
la perfection te sied mieux qu'à moi... je préfère rester discret. ;p