Liaison entre access et excel

bonjour,
Ja viens vers vous pour demander de l'aide. Etant actuellement en stage et débutante en programmation,j'ai un soucis. Je veux alimenter automatiquement les requetes access vers excel. J'ai trouvé le programme ci dessous sur une des publications, ce programme est celui qu'il me faut, mais,le problème est qu'il ne m'affiche que les tables access,or,moi je souhaiterai avoir les requêtes access,je ne sais pas quoi changer ou rajouter dans ce programme afin que ça marche. Aidez moi svp.



Option Explicit

Sub Tables_Access()
Dim appAccess As Access.Application
Dim i, j As Integer

'Lance une session Access
Set appAccess = CreateObject("Access.Application")

With appAccess
.OpenCurrentDatabase ("C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb")
j = 6
For i = 1 To .CurrentData.AllTables.Count - 1
If Left(UCase(.CurrentData.AllTables(i).Name), 4) <> "MSYS" Then
Range("A" & j) = .CurrentData.AllTables(i).Name
j = j + 1
End If
Next i
End With
'Quitte Access
appAccess.Quit

'Réinitialise l'objet
Set appAccess = Nothing
End Sub

Sub Affiche_Table()
Dim rng As Range
Dim numLigne As Integer

'Supprime les lignes pouvants contenir du texte
Set rng = Range("C6").CurrentRegion
rng.Delete

'Affiche le contenu de la table sélectionnée
'en lançant une requêtte sur la base Biblio
On Error GoTo 1:
If ActiveCell <> "" And ActiveCell.Column = 1 Then
With ActiveSheet.QueryTables.Add(Connection:=Array("OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source =C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"), Destination:=Range("C6"))
.CommandType = xlCmdTable
.CommandText = Array(ActiveCell)
.FieldNames = True
.RowNumbers = False
.PreserveFormatting = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.AdjustColumnWidth = True
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Else
MsgBox "Vous devez sélectionner un nom de table", vbExclamation
End If
On Error GoTo 0
Exit Sub

1:
MsgBox "La table sélectionnée n'a pu être affichée", vbExclamation

End Sub