Discussion :

[tofoo]

Bonjour,
J'ai une question :
J'ai une base de donnée ACCESS que je voudrais splitter/séparer puis extraire en fichiers excel.
C'est une BDD de 3 millions de lignes, mon PC galère et je voudrais faire de petits fichiers selon la Ref

http://www.cjoint.com/c/FDduTjnjZCP

Y a t il un moyen simple ou une fonction access ?
Merci

[accessisgood]

Bonjour,

effectivement, avec 3M lignes on attaint les limites de Access
pour spliter le fichier en plusieurs parties tu peux:
- ouvrir une base access vide
- faire un lien avec la base source (table liee)
- selectionner les criteres de split dans la base source
- creer autant de requete de creation de table que tu as define de criteres
- pour exporter dans excel il y a une icone

[tofoo]

Hello,

Tu veux dire qu'il faudrait que je fasse autant de requête qu'il y a de references ?
Si j'ai 300 ref, ça ne va pas etre optimal ou j'ai mal compris ta solution ?

Pareil pour les exports, si je dois faire des exports un par un, ça va me prendre bcp de temps. N existes t il pas de fonction auto pour cela ?

Thanks

[accessisgood]

Bonjour,

en effet il y a des techniques pour automatiser tout ceci avec un peu de VBA

1) tu crees une base access

2) tu fais un lien vers le fichier excel (table liee), automatiquement le nom de la table est [Feuille 1]

3) tu lances une requete de creation de table REFList qui contient toutes les REF de facon unique

Code sql :

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

1
2
3
4
SELECT [Feuille 1].REF INTO REFList
FROM [Feuille 1]
GROUP BY [Feuille 1].REF
HAVING ((([Feuille 1].REF) Is Not Null));

4) tu fais une copie de ta table excel vers une table "SourceTable" non liee mais sans les donnees

5) tu lances ce code VBA qui va creer autant table qu'il a de REF

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Duplicate()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from REFList")
While Not rst.EOF
    DoCmd.CopyObject , rst("REF"), acTable, "SourceTable"
    rst.MoveNext
Wend
rst.Close: Set rst = Nothing
End Sub

6) tu lances ce code qui va charger chacune des tables

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Load()
Dim rst As DAO.Recordset
Dim SQL As String
Set rst = CurrentDb.OpenRecordset("select * from REFList")
While Not rst.EOF
    SQL = "INSERT INTO " & rst("REF") & " SELECT [Feuille 1].* FROM [Feuille 1] WHERE [Feuille 1].REF='" & rst("REF") & "'"
    DoCmd.RunSQL SQL
    rst.MoveNext
Wend
rst.Close: Set rst = Nothing
End Sub

7) tu lances les exports

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Export()
Dim rst As DAO.Recordset
Dim SQL As String
Set rst = CurrentDb.OpenRecordset("select * from REFList")
While Not rst.EOF
    DoCmd.TransferSpreadsheet acExport, , rst("REF"), rst("REF"), True
    rst.MoveNext
Wend
rst.Close: Set rst = Nothing
End Sub

[argyronet]

Bonjour,

Comment pouvez-vous être garant qu'un critère ne filtrera pas plus de 1 million de lignes et donc, atteindre la limitation d'Excel ?

Piste pratique :
1/ Concevoir un jeu de requêtes avec un SELECT INTO IN qui vous permettra d'envoyer chaque jeu d'enregistrements dans une BDD externe (IN) et dans une table spécifique (INTO)
2/ Exploiter la méthode TransferSpreadsheet pour envoyer chaque table générée vers un fichier Excel.

Dans l'idéal, usez de variables qui comportent les critères choisi afin de nommer les tables cibles et ainsi, par la même user de ces noms pour nommer les fichiers Excel dynamiquement.

Argy

[tofoo]

Hello Accessisgood,

Tout d'abord desole pour repondre aussi tardivement, tu as pris le temps de decomposer et expliquer les etapes et je t'en remercie.

Je bloque sur 2 points :

4- copie de la table excel

Comment faire ? un export ou ctrl+A ? On parle bien de la table lie ? Quel est l interet de faire une table lie d ailleurs ?

5/6/7- Question bete mais comment lances t on ces macro ? Module ? Class module ?

Merci,

[tofoo]

OK j'ai compris, je vais me répondre à moi-même :
4- Créer une table "template" qui contiens les meme chps que le fichier source qui vas permettre de dupliquer x fois, le nombre de ref, avec le bon libellé.
5/6/7 - Lancer le code : Cliquez sur onglet "Créer", bouton module à droite, copier/coller le code, sélectionner tout et cliquez sur la fléche verte "Exécuter Sub" pour la lancer.

Les 5 et 6 marchent, la 7eme semble ne rien faire, cf pj, sais tu pourquoi ?

Merci

[tofoo]

Etape 7 : les fichiers sont en faites dans "Documents"

Case closed !
Merci accessisgood