bonjour
je vous expose mon pb
je veux boucler sur cette requete ok ca fonctionne seulement au niveau de l'affichage ca me decale tout vers la droite
j aimerai que les resultats se suivent les uns au dessous des autres et sans repeter la ligne d'entete a savoir TOG TOL DE

si vous avez une idee
merci !


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
 
For i = 2 To 10
pisin = Cells(i, 4)
 
       With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=centre;NA=EXP,7791;DB=COD;UID=azer;pwd=xxl;", Destination:= _
        Range("F" & i))
        .CommandText = Array( _
        "SELECT COD.TOG, COD.TOL, COD.DE" & Chr(13) & "" & Chr(10) & "FROM IF.dbo.COD COD" & Chr(13) & "" & Chr(10) & "WHERE (COD.AGT=11) AND (COD.DE=" & pisin & ")" _
        )
        .Name = "Lancer la requête à partir de centre_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
    Next i