Sql et parcours de feuilles

Version imprimable

Bonjour,

Je pose une requette dans deux boucles imbriquées
et lors de la deuxieme boucle externe je plante, alors
que je remets mes parametres de connection à 0 à chaque fois.
Je vous soumets mon code pour voir si vous avez des idées sur le sujet.
D'avance merci de votre retour.

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
25
26
27
28
 
' Premiere boucle sur les Mois
mois = 4
Nb = ActiveWorkbook.Sheets.Count
While ActiveWorkbook.Sheets(mois).Index <= Nb
    For cpt_BU = 0 To 7
 
        finLigne = ActiveWorkbook.Sheets(mois).Range("A65536").End(xlUp).Row
        feuille = ActiveWorkbook.Sheets(mois).Name
        strQuery = "select Nom,Prenom,Numéro from " & "[" & feuille & "$] where [BL/BU]=" & "'" & lesBU(cpt_BU) & "'"
        Set cn = connectADO(chemin)
        If cn Is Nothing Then
            MsgBox "Impossible de se connecter" & Err.Description
            Exit Sub
            Else: MsgBox "Ca marche"
            End If
 
        Set rs = New ADODB.Recordset
        rs.Open strQuery, cn, adOpenDynamic, adLockReadOnly
            cpt = 1
        ThisWorkbook.Sheets(1).Range("A" & (cpt_BU + 1) *15).CopyFromRecordset rs
        cpt_BU = cpt_BU + 1
        Set rs = Nothing
        cn.Close
        Set cn = Nothing
    Next cpt_BU
mois = mois + 1
Wend

A chaque passage sur une deuxieme feuille, sur le rs.open j'ai une erreur.
Est ce que c'est bien un rs.open qu'il faut faire ?

Merci de vos réponses.

06/12/2010, 17h24
pgz

Bonjour.

La première idée qui vienne c'est que la deuxième feuille n'existe pas, ou ne s'appelle pas comme le contenu de la variable "feuille".

Quelques remarques complémentaires.
1. La connexion est ouverte toujours sur le même classeur, non? SI c'est bien le cas, pourquoi la fermer en cours de traitement?
2. L'argument du While me semble bizarre. Quand tu auras parcouru tous les mois existant, au test suivant tu devrais avoir une erreur puisque la feuille

Code:

ActiveWorkbook.Sheets(mois)

n'existera pas.
3. tu devrais clore chaque jeu d'enregistrement.

En espérant que cela t'aide,

PGZ
06/12/2010, 17h47
comme de bien entendu

Bonsoir,

Ok pour la connexion en fait je l'ai mise dans la boucle pour voir si
ca changeait l'erreur...

Au sujet des mois, j'en ai + que 12 (on passe à l'année suivante) c'est pour cela que j'ai du mettre un compteur sur le nombre total de feuilles.

Je viens d'essayer un rs.close après mon .CopyFromRecordset rs.
Mais c'est pas mieux.
Est ce qu'il y a une autre facon pour clore l'enreg ?

Au fait l'erreur est sur le

Code:

rs.Open strQuery, cn, adOpenDynamic, adLockReadOnly

est :

Citation:

[Microsoft. Pilote ODBC Excel] Trop peu de paramètres. 1 attendu

Merci de votre aide
06/12/2010, 18h31
pgz

Citation:

Envoyé par comme de bien entendu

Au sujet des mois, j'en ai + que 12 (on passe à l'année suivante) c'est pour cela que j'ai du mettre un compteur sur le nombre total de feuilles.

Dans ce cas, mets un compteur dans la boucle, mais tu peux utiliser mois, puisque tu ne remets pas à 1 après 12.

Citation:

Envoyé par comme de bien entendu

Est ce qu'il y a une autre facon pour clore l'enreg ?

Non, c'est bien maintenant.

Citation:

Envoyé par comme de bien entendu

Au fait l'erreur est sur le

Code:

rs.Open strQuery, cn, adOpenDynamic, adLockReadOnly

est

Citation:

[Microsoft. Pilote ODBC Excel] Trop peu de paramètres. 1 attendu

Cela vient peut-être du WHERE. Il y a quelque chose dans lesBU(i)?
Tu pourrais vérifier avec

Code:

Debug.print strQuery

avant chaque requête.

Cordialement,

PGZ
06/12/2010, 22h34
comme de bien entendu

Bonsoir,

J'ai vérifié en posant des espions sur strQuery, je comprends pas pourquoi lorsque je change de feuille ca marche plus...
Si y a des idées... :cry:
Bonne nuit.

Difficile de tester sans fichier, mais au moins modifie le début

Code:

1
2
3
4
5
6
7
8
9
Mois = 4
Nb = ThisWorkbook.Worksheets.Count
While Mois <= Nb
     Set Sh = ThisWorkbook.Worksheets(Mois)
     With Sh
          For cpt_BU = 0 To 7
               FinLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
               strQuery = "select Nom,Prenom,Numéro from " & "[" & .Name & "$] where [BL/BU]='" & lesBU(cpt_BU) & "'"
'.....

Plus bas tu as une incrémentation superflue cpt_BU = cpt_BU + 1 dans une boucle For cpt_BU.

07/12/2010, 00h30
pgz

Citation:

Envoyé par comme de bien entendu

Bonsoir,

J'ai vérifié en posant des espions sur strQuery, je comprends pas pourquoi lorsque je change de feuille ca marche plus...
Si y a des idées... :cry:
Bonne nuit.

Tu pourrais nous donner la valeur se strQuery contrôlée juste avant le bug. Et tu as bien vérifié que la feuille existe bien dans le classeur source?

Cordialement,

PGZ
07/12/2010, 10h58
comme de bien entendu

Bonjour,

Je viens de m'apercevoir qu'en copiant la ligne de titre de mon 1 er onglet (feuille1) sur celle des onglets 2 et 3 j'arrivais à faire les extractions sur les deux mois suivants, il y avait donc un probleme au niveau des lignes de titre (néanmoins ca ne marche plus à partir des feuilles suivantes).
Je vais essayer de savoir comment sont crées ces fichiers pour que ca puisse fonctionner.
C'était donc certainement une différence dans la ligne de titre qui produisait le bug.
C'est vrai que sur Excel les champs de titre sont pas "carrés" comme sur de l'Access.
Merci de vos contributions.