Discussion :

[Tsuna78]

Bonjour, je suis sur un problème que je vais tenter d'expliquer le plus clairement possible.

Je suis sur une table comprenant de nombreux champs, dont 2 champs correspondants l'un à la date du jour, l'autre à un numéro d'enregistrement.

Je souhaiterai trier l'ensemble de cette table tout d'abord par date, puis par le n° d'enregistrement.

La date est sur : Champ1
Le n° d'enregistrement est sur : Champ2

J'ai donc créé la requête SQL suivante :

Code :

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

1
2
 
DoCmd.RunSQL ("SELECT * FROM nomTable ORDER BY Champ1, Champ2;")

La requête s'exécute bien, quand je la teste par l'onglet requête d'ACCESS. Quand j'exécute l'instruction ci-dessus dans mon code VBA, je suppose donc que la sélection se fait bien, seulement je n'arrive pas à modifier ma table de base par le résultat de cette requête.

Cela est-il possible ?? Je me balade sur les FAQ & tutos mais je n'arrive pas à trouver la solution, je ne trouve que la requête que j'ai tapé (peut-être que je ne cherche pas au bon endroit aussi).

Je vous remercie par avance de l'aide que vous pourrez m'apporte

[cafeine]

Hello,

tu ne peux pas exécuter une requête sélection (SELECT).
en revanche, tu n'as pas de notion d'ordre dans une table Access, le tri se fera par une requête à chaque exécution.

[Tsuna78]

Ok

En gros, si je comprends bien (car je suis pas certain ), que ma table soit en désordre ce n'est pas grave, je la trierai par exemple lors d'un export vers une feuille EXCEL ?? (oui l'exemple est bien choisi, c'est ce que je vais faire )

Aucun moyen de passer un RecordSet du style :

Code :

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

1
2
 
Set tri = CurrentDb.OpenRecordset("SELECT * FROM nomTable ORDER BY Champ1, Champ2;", [dbOpenDynaset])

puis par un tri.Sort ???

Je me renseigne n'étant pas vraiment une flèche dans ce domaine

[Lou Pitchoun]

Salut

Order By effectue le tri des enregistrements dans l'ordre où tu les cites.

[Tsuna78]

Ouép, ça je l'ai compris ^^ mais j'ai laissé tomber pour le tri de la table Access, je suis dans l'optique de l'exporter sous EXCEL puis de la trier.

Par contre je me retrouve confronté à un nouveau problème (je ne fais que ça ^^).

Quand je tape le code VB suivant :

Code :

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

1
2
 
oSheet.Range("A3:AP" & LigneMax).Sort Range("B3"), xlAscending, Range("A3"), , xlAscending

Access me dit : "La réponse 'Range' de l'objet '_Global' a échoué.

Je ne comprends pas, mon objet étant oSheet.

Quelqu'un a t'il un petit tips ? ;o)

[Invité]

Bonjour

Dans ton range tu fais appel à une variable, tu as une erreur de syntaxe, essaie ceci

Code :

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

1
2
 
oSheet.Range("A3:AP" & LigneMax & "").Sort Range("B3"), xlAscending, Range("A3"), , xlAscending

Starec

[Lou Pitchoun]

Ouép, ça je l'ai compris ^^ mais j'ai laissé tomber pour le tri de la table Access, je suis dans l'optique de l'exporter sous EXCEL puis de la trier.

Et pour quelle raison ???
C'est plus simple.
En faisant ça sur Excel : tu vas devoir sélectionner ton tableau. Couper-Coller ta 1ère colonne, effectuer ton tri, couper-coller ta 2ème colonne, refaire un tri et le tout en selectionnant à chaque fois ton tableau et ensuite remettre en place tes colonnes.
Enfin, je te dis ça parce qu'à ma connaissance pour effectuer un tri sur Excel il faut que la colonne active de la sélection soit au début ou à la fin du tableau pour trier les lignes entièrement

Pas super pratique