Discussion :

[dav787]

Bonjour,

Etant passé sous office 2010, je note un changement notable quand même.
Je souhaite, depuis excel 2010 , importer des requêtes spécifiques d'access
Voici un extrait de mon code ainsi que l’erreur renvoyé.
Merci de m’indiquer ce qu’il manque en objet ou par quoi je pourrai remplacer sachant que sous 2003, ça fonctionnait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim dbfullname As String, cnct As String, src As String, connection As ADODB.connection
    Dim recordset As ADODB.recordset, col As Integer
    Dim src2 As String, src3 As String, src4 As String
 
dbfullname = ThisWorkbook.Path & "\Suivi.mdb"
    src = "Nb-de_Demande"
    src2 = "Nb_de_réponse"
 
 
    Range("a12").Select
    Set connection = New ADODB.connection
    cnct = "provider=microsoft.jet.oledb.4.0; "
    cnct = cnct & "data source=" & dbfullname & ";"
    connection.Open ConnectionString:=cnct

Renvoi le message d’erreur
“erreur d’éxécution ‘-2147457259(80004005)’:
Format de base de données (c :Suivi.mdb") non reconnu

j'ai essayé avec la terminaison accdb en vain.

Code :

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

1
2
3
  Set recordset = New ADODB.recordset
    With recordset
    .Open Source:=src, ActiveConnection:=connection

Dans outil référence, sont cochés :
Visual basic for applications
Microsoft excel 14.0 objet library
OLE automation
Microsoft forms 2.0 Object library
Microsof ole db provider for OLAP services connect
Microsoft Access 14.0 objet library
Microsoft Activex Data Objects 2.6 library
Microsoft office 14.0 access database engine object
Microsoft JET 4.0


merci pour votre aide

[AlainTech]

Bonjour,

Ta base de données est-elle toujours en format 2003?

[dav787]

Bonjour,

La base de donnée a été crée sous access 2010 est donc, mon fichier excel, également sous 2010.
Mais là, je sèche un peu car je pense que c'est une référence qui ne va pas car, sous 2003, ça fonctionnait et, étant passé sous 2010, ça bugg


Merci encore pour votre aide

[AlainTech]

Remplace ta Connection String par celle-ci:

Code :

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

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;

[dav787]

Bonjour et merci pour la réponse.

Ca fonctionne.