Discussion :

[jpo]

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

[SilkyRoad]

Bonsoir

La ligne de champ est dans la 1ere ligne de la feuille? Normalement, par défaut, tu ne devrais pas récupérer cette ligne.


tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

";Extended Properties=""Excel 8.0;HDR=YES"""

michel

[jpo]

ok super le truc c'était ca !
la premiere ligne de la liste est en ligne 3 !

ca marche si je supprime les premieres lignes mais si laisse le début de la liste à la ligne 3 ? comment faire ???

merci pour ton aide ... et ton tuto !

[SilkyRoad]

Rebonsoir

ca marche si je supprime les premieres lignes mais si laisse le début de la liste à la ligne 3 ? comment faire ???

Dans l'introduction du tutoriel il est indiqué:

Les informations fournies dans ce document supposent que le classeur est structuré comme une vraie base de données:
La première ligne sert à indiquer le nom des champs, à partir de la première colonne.
.....

Après, tout est possible, mais on va vite partir dans des usines à gaz et ralentir la procedure.
Trois possiblités:
1. Tu supprimes la premiere ligne dans le classeur de destination, apres avoir utilisé CopyFromRecordset.
2. Tu boucles sur tous les enregistrements du Recordset, à partir du deuxieme, et tu écris chaque données dans la feuille de destination
3. Si les plages sont fixes dans chaque classeur, tu peux faire une requête sur une plage de cellules (voir chapitre IV-A. Lire)


Bonne soirée
michel

[jpo]

ok et merci pour tes précision !!!

je vais y retravailler !!!


jpo