gwaheb
Messages postés9Date d'inscriptionjeudi 15 mai 2008StatutMembreDernière intervention18 juin 2011
-
17 juin 2011 à 15:02
gwaheb
Messages postés9Date d'inscriptionjeudi 15 mai 2008StatutMembreDernière intervention18 juin 2011
-
17 juin 2011 à 15:04
Bonjour voila
j'ai un petit problème
j'ai crée un petit fichier test pour vous montrer le travail
j'ai envie de tranferer les données depuis excel vers access et a chaque fois que je met a jour les donnée sous la feuille excel celle si se met a jour automatiquement sur la meme table sous access
voila le programme que j'utilise avec un evennement sur clic
Sub tranfertFeuilleClasseursFermes_VersAccess()
Dim Cn As New ADODB.Connection
Dim oProdRS As New ADODB.Recordset, oRS As ADODB.Recordset
Dim oConn As ADODB.Connection
Dim j As Integer
Dim Fichier As String, Repertoire As String
'------------------------------------------------------
'Connection à la Base Access
Set oConn = New ADODB.Connection
oConn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source= 'C:\test.mdb';"
'les données seront placés dans Table1
Set oRS = New ADODB.Recordset
oRS.Open "Select * from Table1", oConn, adOpenKeyset, adLockOptimistic
'------------------------------------------------------
'Boucle sur les classeurs Excel du répertoire cible
Repertoire = "C:\Documents and Settings\20094089\Bureau\test import bdd"
Fichier = Dir(Repertoire & "\*.xls")
Do While Fichier <> ""
'Connection au classeur Excel
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Repertoire & "" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;"""
'requête pour extraire les données de la Feuil1
oProdRS.Open "SELECT * FROM [Feuil1$]", Cn, adOpenStatic
' --- Transfert des données dans la base ---
Do While Not (oProdRS.EOF)
oRS.AddNew
For j = 0 To oRS.Fields.Count - 1
oRS.Fields(j) = oProdRS.Fields(j).Value
Next j
oRS.Update
oProdRS.MoveNext
Loop
'-------------------------------------------
oProdRS.Close
'Fermeture de la connection au classeur Excel
Cn.Close
Fichier = Dir
Loop
oRS.Close
Set oRS = Nothing
'Fermeture de la connection Access
oConn.Close
Set oConn = Nothing
End Sub