Bonjour forumeurs et forumeuses,

Je chercher à trier une table access depuis vba excel. J'utilise excel 2000 et access 2000.

Voici mon bout de 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
Sub tri_table_access()
 
    Dim cnnADO As New ADODB.Connection
    Dim catADO As New ADOX.Catalog
    Dim cmdADO As New ADODB.Command
    Dim rsADO As New ADODB.Recordset
 
    Dim chemin_db As String
    chemin_db = "C:\MaBDD.mdb"
 
    cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"
    cnnADO.ConnectionString = chemin_db
    cnnADO.Open
 
    catADO.ActiveConnection = cnnADO
    cmdADO.ActiveConnection = cnnADO
 
    cmdADO.CommandText = "SELECT matable.* FROM matable ORDER BY var1, var2 ASC;"
    rsADO.Open cmdADO
 
    cnnADO.Close
 
End Sub
Ca ne marchait pas et pour voir d'ou ca venait j'ai donc remplacé ma requete par :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
cmdADO.CommandText = "SELECT matable.* into matable2 FROM matable ORDER BY var1, var2 ASC;"
Ce qui fonctionne mais il me faut maintenant renommer matable2 en matable... (parce que ce bout de programme est a insérer dans un autre et je ne veux pas a avoir a changer toute la structure du gros gros... gros programme)

Quelqu'un peut-il m'aider ? Soit en faisant fonctionner ma première macro, Soit en m'apprennant comment on renomme une table depuis vba sous excel.

Avec tous mes remerciements.

lascrabbleuse !