Tri d'un fichier EXCEL en VB par ACCESS

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:

---

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 ;)

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.

Ok

En gros, si je comprends bien (car je suis pas certain :D), 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 :D)

Aucun moyen de passer un RecordSet du style :

Code:

---

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 :oops:

Salut

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

;)

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:

---

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)

Bonjour

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

Code:

---

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

---

Starec

Citation:

---

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 :roll:

Pas super pratique :?

Starec : je viens d'essayer, ça ne fonctionne pas.
J'ai même essayé ensuite :

Code:

---

1 2	oSheet.Range("A3:AP52").Sort Range("B3"), xlAscending, Range("A3"), , xlAscending

---

en supprimant la variable donc, et j'obtiens le même message d'erreur.

Kikof : J'ai laissé tomber le tri de la table ACCESS car je n'y arrive pas. Je sélectionne ma table avec la requête que j'ai marqué, seulement ça ne met pas à jour ma table de base. Je me retrouve donc bloqué.

Re

Au lieu de faire ton tri dans Excel, tu devrais le faire avant, utilise

Code:

---

1 2	DoCmd.TransferSpreadsheet

---

Regarde dans l'aide, tu peux utiliser comme source une table ou une requête, fais une requête de sélection trier et utilise là.

Tu n'as plus à intervenir dans Excel.

Starec

Re

Exact pour le range, mais applique ma solution.

De toute façon on ne tri pas la table, on tri le résultat d'une recherche sur une table.

Ma solution ton permettra d'exporter le résultat de la requête select. Attention, pas de chaine sql, mais le nom de la requête tel qu'il apparait dans l'onglet requête de ta base.

Starec

Ok, effectivement ça fonctionne bien comme ça ;)

Code:

---

1 2 3 4

Set Tri = CurrentDb.CreateQueryDef("test", "SELECT * FROM nomTable ORDER BY Champ1, Champ2;") DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "test", "C:\test.xls" DoCmd.DeleteObject acQuery, "test"

---

Merci pour votre aide ;)

Re

Et en plus trés rapide pas de programmation, quand c'est des données bruts c'est l'idéal.

Starec