Bonsoir,
Je viens de passer une base de 2003 mdb à 2007 accdb.
J'envoi un fichier Excel dans cette base au moyen de cette macro :
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
33
34
35
36
37
38
39
40
41
42
Sub Export_Vers_Access()

Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("\\Chemin\Mensuel.accdb", False, False, ";pwd=xx")
 
Dim Plage As Range
Dim Array1 As Variant
Dim db1 As Database
Dim Rs1 As Recordset

Set db1 = DBEngine.OpenDatabase("\\Chemin\Mensuel.accdb")

Set Rs1 = db1.OpenRecordset("T_BPSR_BPMR_PAMR", dbOpenDynaset)
Set Plage = Worksheets("Export Access").Range("A2").CurrentRegion.Offset(1, 0)
Set Plage = Plage.Resize(Plage.Rows.Count - 1, Plage.Columns.Count)
Plage.Select

Array1 = Plage.Value

T_BPSR_BPMR_PAMR
For x = 1 To UBound(Array1, 1)
With Rs1
.AddNew
.Fields("Année") = Array1(x, 1)
.Fields("Mois") = Array1(x, 2)
.Fields("Banque") = Array1(x, 3)
.Fields("Code Dépositaire") = Array1(x, 4)
.Fields("montant €") = Array1(x, 5)

.Update
End With
Next x

db1.Close

ActiveWorkbook.Save

Range("A2").Select

MsgBox "Les données sont exportées", vbOKOnly

End Sub
Par F8 j'ai une erreur "Erreur d'execution 13 Incompatibilité de type" sur cette ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Rs1 = db1.OpenRecordset("T_BPSR_BPMR_PAMR", dbOpenDynaset)
Dans les références j'ai bien
Microsoft Office 12.0 Access database engine object library de coché.
Je n'arrive pas a trouver mon erreur.
Merci pour l'aide au cas ou ..
Bonne soirée