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 39 40 41 42 43 44 45 46 47 48 49 50
| Sub INITIALISATION(Nom_Feuil)
'ouverture connexions
'Connexion_Bases
Dim OrdreConnection As String
'ordre de connexion à la liste des ilots
OrdreConnection = _
"Provider= MicroSoft.Jet.OLEDB.4.0;" & _
"Data Source= C:\Documents\" & Nom_Feuil & ".xls ;" & _
"Extended Properties= Excel 8.0"
'ouverture de la base technique
Une_Connexion.ConnectionString = OrdreConnection
Une_Connexion.Open
End Sub
Sub Lance_ADO(Nom_Feuil As String)
INITIALISATION Nom_Feuil
Dim OrdreSQL As String
Dim i As Integer
Dim MonRS As ADODB.Recordset
Set MonRS = New ADODB.Recordset
'la recherche de données
'OrdreSQL = _
"Select * from [" & Nom_Feuil & "$]"
OrdreSQL = _
"Select * from [BD$]"
MonRS.Open OrdreSQL, Une_Connexion.ConnectionString, adOpenForwardOnly, adLockReadOnly, adCmdText
'les noms de colonnes
'For i = 0 To MonRS.Fields.Count - 1
' Feuil2.Range("A1").Offset(0, i).Value = MonRS.Fields(i).Name
'Next
'les résultats
Feuil3.Range("A2").CopyFromRecordset MonRS
'fermeture connexion
'fermeture de la base technique
Une_Connexion.Close
End Sub |
Partager