salut

je réalise un fichier Excel qui consolide les données de 3 autres fichiers identiques à celui de destination A l'aide d'une requete.

ca marche impec sauf qu'il me récupère à chaque fois la ligne de champs et moi je n'en veux pas parce qu'elle est présente dans le fichier de destination.

je me suis appuyer sur le tuto de Silkyroad mais la je coince

voici mon code

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
29
30
31
32
33
34
35
36
37
38
(...)
 For i = 1 To 3
If i = 1 Then
     Fichier = "\Olivier\Olivier.xls"
        ElseIf i = 2 Then
     Fichier = "\Jean-Michel\Jean-Michel.xls"
        ElseIf i = 3 Then
    Fichier = "\Nicolas\Nicolas.xls"
End If
 
     Set Cn = New ADODB.Connection
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Chemin & Fichier & _
            ";Extended Properties=Excel 8.0"
        .Open
    End With
    '-----------------
 
    'Définit la requête.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    ligne = 3 'pour coller les résultats à la suite
    Do While Not IsEmpty(Cells(ligne, "b"))
        ligne = ligne + 1
    Loop
 
    'Ecrit le résultat
    Range("A" & ligne).CopyFromRecordset Rst
 
    '--- Fermeture connection ---
    Cn.Close
    Set Cn = Nothing
Next
est-ce au niveau de la requete ?

ci qq un à des idées ...
merci d'avance
jpo