Discussion :

[msteph_2]

Bonjour,

J'ai créé un code VBA qui me permet d'exporter des tables ACCESS dans un seul fichier Excel (qui comporte alors un onglet par table ACCESS).
L'exportation fonctionne bien.
Par contre certaines tables se retrouvent "détriées" sans raison (du moins je n'arrive pas à l'expliquer) après l'export.

Pour info 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
Private Sub cumul_résultats_Click()
' Cette procédure cumule les tables résultats des différents scénarios
' et les agrege dans un fichier , enregistré dans le répertoire
' de l'outil access
 
Dim nom_table As String
Dim première_lettre As String
Dim Chemin As String
 
' création du répertoire Résultats
If Dir(Application.CurrentProject.Path & "\Résultats", vbDirectory) = "" Then MkDir (Application.CurrentProject.Path & "\Résultats")
Chemin = Application.CurrentProject.Path & "\Résultats" & "\export_rés_scénarii_" _
& Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " " & Hour(Now) & "h" & Minute(Now) & "mn" & Second(Now) & "s"
 
' enregistrement des résultats dans un fichier export_résultats (le nom du fichier indique la date et l'heure de la sauvegarde des résultats
For Each t In CurrentDb.TableDefs
    nom_table = t.Name
    If Left(nom_table, 1) = "R" Then
        DoCmd.TransferSpreadsheet acExport, 8, nom_table, Chemin
    End If
Next
 
MsgBox ("Votre fichier est sauvegardé sous  " & Chemin)
 
End Sub

Merci d'avance pour votre aide car je sèche complètement

[marot_r]

Bonjour.

Cela doit venir du fait qu'officiellement une table n'est jamais triée. Elle est simplement affichée dans un certain ordre et cet ordre ne sert qu'à l'affichage.

Essaye en remplaçant ta table source par une requête. Un truc du genre :

reqTaRequete :

Code sql :

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

select [TaTable].* from [TaTable] order by [TaTable].[TonChamp].

A+

[msteph_2]

Ok effectivement ça doit être qqchose de ce style. Du coup ce n'est pas dans cet endroit du programme que ça buggue.

Est-ce qu'il existe un moyen de trier mon "DAO.Recordset" en code VBA ?

Merci d'avance pour votre aide .

[marot_r]

Il y a une méthode .Sort sur ton objet recordset mais personnellement je fais plutôt le tri dans une requête et je me sers de cette requête triée comme source du recordset.

Je trouve cela plus facile à débugger car on peut visualiser une requête mais plus difficilement un Recordset.

A+

[msteph_2]

En fait, pour être plus précis, j'utilise une table (déjà triée dans access) comme source de mon recordset.

Ensuite, je charge mon recordset ligne à ligne (en utilisant l'instruction "MoveNext"), en y ajoutant des colonnes de calcul, basées sur les données de ma table source.

Enfin, j'enregistre mon recordset ainsi construit dans une nouvelle table access

Et là sans comprendre pourquoi, environ 1 fois sur 10, ma nouvelle table access n'est plus triée comme ma source (les 9 autres fois, ça fonctionne !)

J'espère que mon problème vous parait plus clair. Je ne comprends vraiment pas pourquoi j'ai ce phénomène. Et je ne maitrise pas bien SQL, mais beaucoup plus VBA ...

Quelqu'un peut-il m'aider à trouver un moyen pour obtenir des tables triées en sortie de mon programme svp ?

[msteph_2]

Petit up !
J'aimerai vraiment comprendre et trouver une solution à mon problème ...