probleme pour importer un fichier excel à partir d'access

[marteau64]

"Bonjour"
J'aimerais importer un fichier excel à partir de access avec le code suivant

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Const acImport = 0  'Importer
Const acSpreadsheetTypeExcel9 = 8  'Access 2003
Set objAccess = CreateObject("Access.Application")
 
objAccess.OpenCurrentDatabase "U:\bdbonds.mdb"    [Ici ça devrait logiquement créer dans ma base de donnée déjà existante "bdbonds.mdb" une nouvelle table se nommant matable avec les valeurs du fichier excel "Index.xls", ce qui n'est pas le cas ! Il m'affiche le message d'erreur suivant : "Erreur d'execution 7866 Microsoft acces can't open the Database because it's missing or opened exclusively by another user"]
 
'objAccess.NewCurrentDatabase "U:\New.mdb"   [avec cette ligne à la place de la précédente j'arrive bien à créer un nouveau fichier .mdb avec à l'intérieur la nouvelle table "matable" contenant les valeurs de "Index.xls"]
 
objAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    "matable", "U:\Index.xls", True, "A4:U1396"  'On importe à partir de la ligne 4
 
End Sub

Pourquoi avec la ligne utilisant "OpenCurenDatabase" ca ne fonctionne pas correctement ?

Cdt