Discussion :

[shakapouet]

Bonjour,

J'ai développé une requête access avec une macro VBA pour extraire cette requête automatiquement au format CSV.
L'extraction du fichier CSV fonctionne bien , le soucis c'est que le fichier contient 1.5 millions de lignes et j'aimerais pouvoir découper l'extraction en plusieurs fichiers au moment de l'extraction.
J'utilise actuellement ce code pour extraire le fichier en un seul fichier CSV.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Export()
Fic_Export = CurrentProject.Path & "\Export\" & "EXPED_Finale.csv"
Spec_Export = "EXPED_Finale Spécification d'exportation"
 
table_Source_Name = "00_DEB_Exped"
 
MsgBox "vous allez exporter le fichier final" & Fic_Export
 
 
DoCmd.TransferText acExportDelim, SpecificationName:=Spec_Export, Tablename:=table_Source_Name, FileName:=Fic_Export, HasFieldNames:=True
 
MsgBox "Export DEB terminé"
 
End Sub

Ma question : Est il possible d'adapter ce code pour découper l'extraction en plusieurs fichiers CSV ( ex : nombre de ligne max par fichier )

Merci pour votre aide

Bonne journée

Shaka

[marot_r]

Bonjour.

La réponse courte est "non".

La réponse un peu plus constructive est :

• Peux-tu partitionner tes données selon un critères, ex : Numéros de compte dans par tranche, département, type de produits ?
  L'idée est alors de faire plusieurs extractions en passant des paramètres à la requête pour réduire le nombre d'enregistrements.
• L'autre idée est de faire l'extraction et surtout l'écriture des données via du code VBA qui va lire les enregistrements un à la fois et les écrire dans le fichier de sortie.
  Une fois un nombre d'enregistrement atteint, tu fermes le fichier et tu en réouvres un nouveau.
  Attention généralement l'option VBA est plus lente.

A+

[shakapouet]

Merci Marot pour ta réponse.

Je vais voir pour intégrer des paramètres pour pouvoir réduire le nombre de ligne.
L'écriture en VBA directement je pense que ca va être beaucoup trop long pour le traitement ( je vais quand même faire un test )

Bonne journée

Shaka

[Thumb down]

Bonjour,
Si ta table dispose d'un identifiant unique, il est possible de faire un Select top 100 via une requête de non concordance avec une table temporaire qui elle devait identifier les ID déjà transféré !
Spec_Export = "select top 100 Spec_Export.* Fromm EXPED_Finale left join temp on temp.id= WHERE temp.id IS null"