Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Exporter une plage dans une table : DAO vers ADO

Exporter une plage dans une table : DAO vers ADO

1 réponse
Avatar
Stéphane Santon
Bonjour,

J'avais créé ce code pour exporter une plage de cellules vers une table
de données :

Dim bd As DAO.Database
Dim Rst As DAO.Recordset

Worksheets(aiFile).Range("K1").CurrentRegion.Name = "Plage"

Set bd = OpenDatabase(ThisWorkbook.FullName, False, False, "excel
8.0")
bd.Execute "INSERT INTO Enregistrements IN
'D:\GrandJourDatas\GrandJour.mdb' SELECT * FROM [Plage]"
bd.Close

ThisWorkbook.Names("Plage").Delete
Set bd = Nothing

Est-il possible de le passer en ADO ? J'essaie ceci :

Dim loConn As New ADODB.Connection

Worksheets(aiFile).Range("K1").CurrentRegion.Name = "Plage"

loConn.Open lsDB 'Initialisé avant
loConn.Execute "INSERT INTO Enregistrements IN
'D:\GrandJourDatas\GrandJour.mdb' SELECT * FROM [Plage]"

ThisWorkbook.Names("Plage").Delete
Set loConn = Nothing

Mais il me renvoie une erreur :
Erreur d'exécution '-2147217865'
Le moteur de base de données Microsoft Jet ne peut pas trouver la table
ou la requête source 'Plage'. Assurez-vous qu'elle existe et qu'elle est
correctement orthographiée


--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.

Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Bonjour,

Contrairement à l'autre lien, celui-ci est en français. avec des
exemples comparés:

http://www.microsoft.com/France/MSDN/Technologies/technos/dataaccess/info/info.asp?mar=/France/MSDN/Technologies/technos/dataaccess/info/migration_DAO_ADO.html



"Stéphane Santon" a écrit dans le message
de news:
Bonjour,

J'avais créé ce code pour exporter une plage de cellules vers une
table

de données :

Dim bd As DAO.Database
Dim Rst As DAO.Recordset

Worksheets(aiFile).Range("K1").CurrentRegion.Name = "Plage"

Set bd = OpenDatabase(ThisWorkbook.FullName, False, False,
"excel

8.0")
bd.Execute "INSERT INTO Enregistrements IN
'D:GrandJourDatasGrandJour.mdb' SELECT * FROM [Plage]"
bd.Close

ThisWorkbook.Names("Plage").Delete
Set bd = Nothing

Est-il possible de le passer en ADO ? J'essaie ceci :

Dim loConn As New ADODB.Connection

Worksheets(aiFile).Range("K1").CurrentRegion.Name = "Plage"

loConn.Open lsDB 'Initialisé avant
loConn.Execute "INSERT INTO Enregistrements IN
'D:GrandJourDatasGrandJour.mdb' SELECT * FROM [Plage]"

ThisWorkbook.Names("Plage").Delete
Set loConn = Nothing

Mais il me renvoie une erreur :
Erreur d'exécution '-2147217865'
Le moteur de base de données Microsoft Jet ne peut pas trouver la
table

ou la requête source 'Plage'. Assurez-vous qu'elle existe et qu'elle
est

correctement orthographiée


--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être
rejeté.


Cordialement, Stéphane ***
http://www.team-santonum.com

Loisirs, nature, arts, technologie : accueil en
Charente-Maritime