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