Discussion :

[vinz4444]

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.

Est-ce que quelqu'un sait faire ceci ?

D'avance merci pour votre réponse !

Vinz4444

[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+

[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 ?

[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+

[vodiem]

salut marot_r et bienvenu vinz4444,

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
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...

[marot_r]

Merci Vodiem pour cette éléguante solutions.

A+

[vinz4444]

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

[vodiem]

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

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.

[philben]

Bonjour,

Vodiem, dans un élan lyrique :

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
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...

@+

Philippe

[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