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 |
