Prob .Refresh ds QueryTables

[csensoli]

Bonjour,
j'utilise QueryTables pour obtenir des resultats de requetes sous Excel, tout fonctionne jusqu'à la 64ème requete.
Quelque soient les requetes effectuées par l'utilisateur, ça plante toujours à la 64ème requete en m'affichant:
Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet
et le debogage se positionne sur le .Refresh de mon code ci-dessous:

For i = 1 To NbTables
    Var = 2
    While Cells(Var, i).Value <> ""
        For j = 1 To NbPays
            MySql = "SELECT " & Table(i) & ".[" & Cells(Var, i).Value & "] FROM " & Table(i) & " WHERE (" & Table(i) & ".Pays)='" & Pays(j) & "' ORDER BY " & Table(i) & ".Pays, " & Table(i) & ".Année; "
            Nom_Pays(NbVar) = Pays(j)
            NbVar = NbVar + 1
            'affiche le contenu de la requete sur la base base_jumbo.mdb
            ColExcel = ColExcel + 1
            With ActiveSheet.QueryTables.Add(Connection:=Array( _
                "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;" _
                & "Data Source=" & Application.ActiveWorkbook.Path & "/base_1.mdb"), _
                Destination:=Cells(1, ColExcel))
                .CommandType = xlCmdSql
                .CommandText = MySql
                .Refresh
            End With
        Next j
        Var = Var + 1
    Wend
Next i
appAccess.Quit
Set appAccess = Nothing

Et des que je referme le fichier et que je reouvre le fichier apres cette erreur, tout remarche ...jusqu'a ce que je reeffectue 64 requetes.
Comment faire?
MERCI !

 

[csensoli]

Re : Prob .Refresh ds QueryTables

ça n'inspire personne?
sniff..

 

[csensoli]

Re : Prob .Refresh ds QueryTables

Toujours personne?
Je suis désespérée! à l'aide