Discussion :

[casdidier]

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 :

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
 
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!

[Invité]

bonjour;

Code :

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

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

[casdidier]

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 :

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
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

[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.

[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.

[Invité]

ton fichier est il enregistré au moment de l'export vers Access?