QueryTables Refresh probleme

Version imprimable

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Set appAccess = CreateObject("Access.application") BOUCLE FOR blablabla MySql = "SELECT blablabla; " With ActiveSheet.QueryTables.Add(Connection:=Array( _ "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & Application.ActiveWorkbook.Path & "/base_blabla.mdb"), _ Destination:=Cells(100, ColExcel)) .CommandType = xlCmdSql .CommandText = MySql .Refresh End With NEXT blabla appAccess.Quit Set appAccess = Nothing
Et des que je referme le fichier et que je reouvre le fichierapres cette erreur au bout de la 64eme requete, tout remarche ...jusqu'a ce que je reeffectue 64 requetes.
Comment faire?
MERCI !

31/08/2006, 17h20
SfJ5Rpw8

le message d'erreur c'est blalblabla non ..?
31/08/2006, 18h41
csensoli

Oui, comment as-tu deviné?
31/08/2006, 18h52
SfJ5Rpw8

et la valeur de MySql à ce moment la cela devient quoi..?

Bon, je poste tout le code, mais ça n'avancera personne; c'était juste pour épurer:
donc tout marche jusqu'à la 64ème requete, qui affiche une erreur sur le .REFRESH !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
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

01/09/2006, 13h50
SfJ5Rpw8

ben tu nous as pas donné la valeur de MySql.. sur plantage.. , sinon qu'appelle tu la 64 ° requête ..? la 64° fois ou tu appelle le code ..?
01/09/2006, 14h14
csensoli

En fait, il n'y a aucun probleme avec les requetes.
Toutes renvoient ce qu'il faut, mais si l'utilisateur utilise le fichier sans le fermer et que les requetes envoyees sur Access depassent le nombre de 64, j'ai cette erreur:

Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet
et le debogage se positionne sur le .Refresh

Si je ferme le fichier, et que je l'ouvre a nouveau, la requete qui ne passait pas a ce moment (car 64eme..) passera sans probleme...
Desolee, c'est pas tres clair..je suis perdue!
01/09/2006, 17h38
SfJ5Rpw8

Citation:

Envoyé par csensoli

En fait, il n'y a aucun probleme avec les requetes.
.....

ben si tu as la solution pourquoi pose tu une question...?
01/09/2006, 17h41
AlainTech

Pour ma part, suite à de mauvaises expériences, je ne travaille jamais avec les QueryTables.

Elles surchargent horriblement la mémoire et, si on sauve le fichier, il prend vite des proportions inacceptables.

Je travaille toujours par RecordSet et boucle pour remplir la feuille.

A toi de voir, mais je pense que l'origine de ton problème est là.
01/09/2006, 18h27
csensoli

Cher bbil,
je ne sais pas comment tu interpretes mes propos, je suis peut-etre pas claire ni douée, mais il y'a peut-etre un peu de mauvaise volonté de ta part!
Depuis le debut, je n'ai pas dit que j'avais un probleme sur mes requetes!!!! mais sur le REFRESH.
Bon, tant pis, je vais donc analyser la methode Recordset. Merci AlainTech.
En fait, la base "base1.mdb" que j'interroge crée un fichier "base1.ldb" lorsqu'elle est utilisée et quand tous les fichiers sont fermés, ce ".ldb" est encore présent, et il ne le devrait pas je pense, c'est peut-etre la cause du probleme...bref
01/09/2006, 18h29
AlainTech

Citation:

Envoyé par csensoli

tous les fichiers sont fermés,

Que veux-tu dire par fichiers???

Normalement, le ldb est détruit quand toutes les connexions sont fermées.
01/09/2006, 18h33
SfJ5Rpw8

et à quoi sert d'aprés toi la procédure refresh sinon à éxécuté la mystérieuse requête ..?

Citation:

Envoyé par Aide en ligne excel

Avec la méthode Refresh, Microsoft Excel se connecte à la source de données de la table de requête, exécute la requête SQL et renvoie les données dans la plage destination de la table de requête. Tant que cette méthode n'est pas appelée, la table de requête ne communique pas avec la source de données.
01/09/2006, 18h38
csensoli

oui mais les requetes sont correctes, alors je pense que c'est plutot un probleme de memoire, ou de de ce fichier ".ldb" d'access, je sais pas, j'y comprends rien.