Discussion :

[podalamina]

Bonjour à tous,

Je réalise actuellement un access permettant de gérer l'intégration des données dans un site internet de manière automatique et régulière.
Le problème est que j'ai besoin de passer par un fichier .csv et à ce moment la Access tronque mes champs mémo à 255 caractères !!!

Je n'ai trouvé aucune solution fonctionnant sur le net alors j'appelle la communauté à l'aide !

Bien à vous

[Invité]

Bonjour

Peux-tu expliquer comment tu fais l'import (en détaillant).

Philippe

[podalamina]

Bonjour Philippe,

Mon import fonctionne de cette manière :
- une requête est généré avec tous les champs (dont certains sont des champs mémo)
- ensuite un export .csv est réalisé avec l'outil exportations enregistré, fichier texte

C'est à ce moment que tous mes champs mémo sont tronqués à 255 caractères, je n'ai encore trouvé aucune solution, est ce tout simplement possible ?

Mika

[Thierry85]

Bonjour,
Voici une solution pas terrrible je le reconnais mais qui a le mérite de fonctionner.
Les pros du forum vous feront certainement quelque chose de mieux.

Soit Champ1 votre champ mémo
Dans votre requête, il faut le "découper" en champs de 255 caractères.
Cela donne :

Code :

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

1
2
SELECT Len([champ1]) AS NbCarMemo, Mid([champ1],1,255) AS Part1, Mid([champ1],256,255) AS Part2, Mid([champ1],511,255) AS Part3
FROM Table1;

Bon, c'est sur qu'il faut adapter ça en fonction de vos besoins... et je vous avais prévenu que ce n'était pas terrible.
Une fois l'export faite, il suffit de concaténer les champs part1, 2 etc... pour retrouver votre champ mémo d'origine.
Bon courage

[podalamina]

Merci pour cette réponse elle m'est utile dans tous les cas.

La solution que j'ai trouver aujourd'hui est de lié un xls à mes tables access ( dans ces conditions les champs mémo ne sont pas tronqués)
Ensuite une macro récupère les champs dans le xls pour les réintégré proprement dans mon fichier .csv
Ceci fonctionne de manière correcte mais l'augmentation du nombre de manipulation augmente le risque d'erreur...

Donc si quelqu'un à une idée ...

[zoom61]

Salut,

Autre solution, le format CSV est un format txt, alors pourquoi ne pas utiliser une fonction comme celle là :

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
'Chemin du fichier ouvert
Chemin = ThisWorkbook.Path
 
'Nom du fichier 
NomFic = "Fichier.csv"
 
'Création du fichier
Open Chemin & "\" & NomFic For Append As #1
 
'Ajout des lignes 
SQL = "SELECT ... FROM ... WHERE ..."
Set oSQL = CurrentDb.OpenRecordset(SQL)
    With oSQL
        Do While Not .EOF
            Print #1, oSQL![CHAMP1] & ";" & oSQL![CHAMP2] & ....
            oSQL.MoveNext
        Loop
    End With
oSQL.Close
 
'Permet de fermer le fichier
Close #1

[podalamina]

Pourrais tu être plus précis sur ce que je dois mettre ici je ne connais pas du tout le SQL :

"SELECT ... FROM ... WHERE ..."

[zoom61]

Pourrais tu être plus précis sur ce que je dois mettre ici je ne connais pas du tout le SQL :

"SELECT ... FROM ... WHERE ..."

Tu y mets le code SQL de ta requête...

[podalamina]

J'avoue être bloqué même pour lancer la fonction, voici le code :

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
25
26
27
Function Export_CSV()
 
'Chemin du fichier ouvert
Chemin = ThisWorkbook.Path
 
'Nom du fichier
nomFic = "Q_export.csv"
 
'Création du fichier
Open Chemin & "\" & nomFic For Append As #1
 
'Ajout des lignes
SQL = "SELECT T_Stock.Motorisation, T_Stock.Description, "Home, " & [T_Véhicule]![Marque] & ", " & [T_Véhicule]![Modèle] AS Catégories, T_Stock.TTC_AlterAuto, [T_Véhicule]![Marque] AS SUPPLIER, [T_Véhicule]![Marque] AS Manufacturer, T_Stock.Options, T_Véhicule.[Meta-title], T_Véhicule.[Meta-keywords], T_Véhicule.[Meta-description], T_Véhicule.[URL rewritten], [T_Véhicule]![Image1] & ", " & [T_Véhicule]![Image2] & ", " & [T_Véhicule]![Image3] & ", " & [T_Véhicule]![Image4] & ", " & [T_Véhicule]![Image5] AS [Image], IIf([T_Stock]![Dispo]=True,"1","0") AS Dispo, T_Stock.[Code AlterAuto], T_Stock.Date_Ajout
FROM T_Stock INNER JOIN T_Véhicule ON T_Stock.Modèle = T_Véhicule.Modèle;"
Set oSQL = CurrentDb.OpenRecordset(SQL)
    With oSQL
        Do While Not .EOF
            Print #1, oSQL![CHAMP1] & ";" & oSQL![CHAMP2] & ....
            oSQL.MoveNext
        Loop
    End With
oSQL.Close
 
'Permet de fermer le fichier
Close #1
 
End Function

Ya t'il des erreurs ?
et Comment faire pour lancer a partir d'un bouton sur formulaire ?

[zoom61]

Premièrement dans ton code éviter d'utiliser les " utilise '.
Ce qui donnera :

Code :

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

1
2
3
4
5
6
SQL = "SELECT T_Stock.Motorisation, T_Stock.Description, 'Home', [T_Véhicule]![Marque] , [T_Véhicule]![Modèle] AS Catégories, " _
& "T_Stock.TTC_AlterAuto, [T_Véhicule]![Marque] AS SUPPLIER, [T_Véhicule]![Marque] AS Manufacturer, T_Stock.Options, T_Véhicule.[Meta-title], " _
& "T_Véhicule.[Meta-keywords], T_Véhicule.[Meta-description], T_Véhicule.[URL rewritten], [T_Véhicule]![Image1] , [T_Véhicule]![Image2] , " _
& "[T_Véhicule]![Image3] , [T_Véhicule]![Image4] , [T_Véhicule]![Image5] AS [Image], IIf([T_Stock]![Dispo]=True,'1','0') AS Dispo, T_Stock.[Code AlterAuto], " _
& "T_Stock.Date_Ajout " _
& "FROM T_Stock INNER JOIN T_Véhicule ON T_Stock.Modèle = T_Véhicule.Modèle;"

Et n'oublie pas de mettre à jour cette ligne :

Code :

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

Print #1, oSQL![CHAMP1] & ";" & oSQL![CHAMP2] & ....

Ensuite pour appeler ta fonction, sur le bouton de ton formulaire en code tu saisis :

Code :

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

Call Export_CSV

@+.

[podalamina]

Pourriez vous m'aider encore un peu, j'ai un problème dans la syntaxe de ce code qui devient jaune :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set oSQL = CurrentDb.OpenRecordset(SQL)
    With oSQL
        Do While Not .EOF
            Print #1, oSQL![T_Véhicule]![Marque] & ";" & oSQL![T_Véhicule]![Modèle] & ";" & oSQL![T_Véhicule]![Marque] & ";" & oSQL![T_Véhicule]![Marque] & ";" & oSQL![T_Véhicule]![Marque], "" _
            & ";" & oSQL![T_Stock].[Options] & ";" & oSQL![T_Véhicule].[Meta-title] & ";" & oSQL![T_Véhicule].[Meta-keywords] & ";" & oSQL![T_Véhicule].[Meta-description] & ";" & oSQL![T_Véhicule].[URL rewritten]; "" _
            & ";" & oSQL![T_Véhicule]![Image1] & ";" & oSQL![T_Véhicule]![Image2] & ";" & oSQL![T_Véhicule]![Image3] & ";" & oSQL![T_Véhicule]![Image4] & ";" & oSQL![T_Véhicule]![Image5] & ";" & oSQL![Dispo] & ";" & oSQL!Dispo; "" _
            & ";" & oSQL![T_Stock].[Code AlterAuto] & ";" & oSQL![T_Stock].[Date_Ajout]
            oSQL.MoveNext
        Loop
    End With
oSQL.Close

[zoom61]

Essaie avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set oSQL = CurrentDb.OpenRecordset(SQL)
    With oSQL
        Do While Not .EOF
            Print #1, oSQL![Marque] & ";" & oSQL![Modèle] & ";" & oSQL![Marque] & ";" & oSQL![Marque] & ";" & oSQL![Marque] _
            & ";" & oSQL![Options] & ";" & oSQL![Meta-title] & ";" & oSQL![Meta-keywords] & ";" & oSQL![Meta-description] & ";" & oSQL![URL rewritten] _
            & ";" & oSQL![Image1] & ";" & oSQL![Image2] & ";" & oSQL![Image3] & ";" & oSQL![Image4] & ";" & oSQL![Image5] & ";" & oSQL![Dispo] & ";"  _
            & ";" & oSQL![Code AlterAuto] & ";" & oSQL![Date_Ajout]
            oSQL.MoveNext
        Loop
    End With
oSQL.Close

[podalamina]

Cela ne marche pas, voici l'erreur que VBA me donne :
erreur 3265 : élément non trouvé dans cette collection

[marot_r]

voici une solution simple pour générer à la main un fichier CSV, je capitalise sur le travail de zoom61. Ce programme exporte tous les champs contenus dans la source de données sans avoir à les nommer individuellement.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
'Chemin du fichier ouvert
dim chemin as string:Chemin = ThisWorkbook.Path
 
'Nom du fichier 
dim NomFic as string:NomFic = "Fichier.csv"
 
'Création du fichier
dim f as dao.field
dim i as long
dim db as dao.database:set db=currentdb
 
Open Chemin & "\" & NomFic For output As #1 
 
'Ajout des lignes 
        SQL = "SELECT ... FROM ... WHERE ..."
        dim oSQL as dao.recordset:Set oSQL = db.OpenRecordset(SQL)
 
        Do While Not oSQL.EOF
 
            for i=1 to oSQL.fields.count
               set f=oSQL.fields(i)
               print #1,f; 'Écrit un champ
 
               if i<>oSQL.fields.count
                  print #1,";"; 'Écrit un séparateur de champ
               end if
 
            next f
 
            print #1,"" 'fini l'enregistrement. Les prochaines données seront mises sur une nouvelle ligne
 
            oSQL.MoveNext
        Loop
        oSQL.Close:set oSQL=nothing
 
'Permet de fermer le fichier
Close #1
 
set db=nothing 'L'utilisation de la variable db évite qu'il reste de l'espace mémoire bloqué par Access.

[podalamina]

Le

Code :

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

 next f

donne une erreur de compilation, dois je le remplacer par

Code :

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

 next i

?

[marot_r]

Oui merci.

A+