Code VBA qui fonctionne sous XL 2007 mais ne fonctionne pas sous ACCESS 2003.

Version imprimable

Bonjour,

Je ne suis en train de construire une macro, qui doit à partir de ACCESS 2003 , chercher des valeurs dans des xls, pour les importer dans ma database.
Etant plus familier (:? a peu près) avec le XL 2007, j'ai compilé mon code sur celui ci en pensant qu'il était compatible avec ACCESS 2003.

j'ai testé mon code ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Function cmdOpenExcel_file(Path As String) As Object 'Application.DisplayAlerts = False Dim xls As Excel.Application On Error GoTo errHnd Set xls = CreateObject("Excel.Application") xls.Workbooks.Open Path xls.Visible = True Exit Function errHnd: MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source End Function Sub Call_OpenXlsFile() Call cmdOpenExcel_file("D:\Users\didier.cheung\Desktop\Reforming test.xls") End Sub
Il fonctionne parfaitement sur XL 2007 mais m'affiche une erreur de compilation sur ACS 2003. :/

Comment ca se fait?

Merci d'avance de votre retour XLnautes! :roll:

bonjour;

Code:

1
2
dim wb as Object
set wb = xls.Workbooks.Open("D:\Users\didier.cheung\Desktop\Reforming test.xls")

Bonjour rdurupt !

Merci pour ce code beaucoup plus compact...

J'ai trouvé un code VBA sous excel pour export des données vers une db,

Code:

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
Sub test()
    ‘ exports data from the active worksheet to a table in an Access database
    ‘ this procedure must be edited before use
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
    ‘ connect to the Access database
Set cn = New ADODB.Connection
    cn.open “provider = microsoft.ace.oledb.12.0;” & _
“Data Source=D:\Users\user\Documents\D4R pack\ReliabilityStudies\extdataDataBaseName.mdb;”
    ‘ open a recordset
Set rs = New ADODB.Recordset
rs.Open “Table1”, cn, adOpenKeyset, adLockOptimistic, adCmdTable
‘ all records in a table
r = 2 ‘ the start row in the worksheet
Do While Len(Range(“A” & r).Formula) > 0
‘ repeat until first empty cell in column A
With rs
.AddNew ‘ create a new record
‘ add values to each field in the record
.Fields(“Field1") = Range(“A” & r).Value
.Fields(“Field2?) = Range(“B” & r).Value
.Fields(“FieldNameN”) = Range(“C” & r).Value
‘ add more fields if necessary…
.Update ‘ stores the new record
End With
r = r + 1 ‘ next row
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
 
End Sub

Sauf que celui-ci me spam erreur d'instruction à chaque fois, pourquoi? :s :(

10/09/2014, 11h44
Invité

bonjour,
je ne comprends pas tu veux travailler avec Excel dans Access ou avec Access dans Excel?

tu veux insérer tes donnée Excel dans une table Access ou insérer ta table Access dans Excel.
10/09/2014, 13h16
casdidier

Oui , en effet, c'était pas très clair, j'ai changé de fusil d'épaule entre temps, je souhaite travailler exporter des données excel vers access , car je suis plus confortable avec le vba d'XL 2007 que ACS 2003.
10/09/2014, 13h19
Invité

ton fichier est il enregistré au moment de l'export vers Access?
10/09/2014, 13h58
casdidier

le fichier XL est existant et n'est pas re-enregistré avant export :?

Code:

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
Sub test()
Const Fichier = "C:\Users\RDurupt\Documents\Base de données6.mdb"
Dim GenereCSTRING As String
Dim Cn As Object
Dim Rs As Object
Dim R As Range
Dim L As Long
Const Sql = "SELECT Table1.*FROM Table1;"
GenereCSTRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Fichier & ";user=" & User & ";Passwors=" & Password
Set Cn = CreateObject("ADODB.Connection")
Cn.Open GenereCSTRING
Set Rs = CreateObject("ADODB.RECORDSET")
Rs.LockType = 3
Rs.Open Sql, Cn, 2
Set R = Sheets("Feuil1").UsedRange
For L = 2 To R.Rows.Count
    Rs.AddNew
    Rs("Champs1") = R(L, 1)
    Rs("Champs2") = R(L, 2)
    Rs("Champs3") = R(L, 3)
    Rs("Champs4") = R(L, 4)
    Rs("Champs5") = R(L, 5)
    Rs.Update
Next
Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing
MsgBox "fin"
End Sub

11/09/2014, 23h05
casdidier
Désolé du retard !!

Ca marche nickel !! Je dois juste adapter mon code pour aller chercher des informations précises ! :]

Je n'ai pas tout compris du code, juste qu'il faut créer une connection entre les applications office, et que ACCESS gère des objects RECORDSET et CONNECTION.
Une dernière chose, je ne comprends pas comment ces lignes ci-dessous :)
Code:

1 2 Rs.LockType = 3 Rs.Open Sql, Cn, 2
merci encore!:P:P:P
12/09/2014, 00h43
Invité

Bonjour,
ces 2 lignes sont pour rendre la requête dynamique, ajout,mise a jour et suppression d'enregistrement.
Comme j'utilise la méthode creatobject, je n'es pas besoin d'ajouter la référence adodb a mon projet donc pas d'accès a la constante opendynaset (2)
et locktype le déverrouillage des enregistrement