INSERT INTO excel vers excel
Bonjour,
Je galère sur la fonction INSERT INTO
Je veux insérer des données "variable" vers un autre classeur Excel fermé dans laquelle est j'ai déjà une base.
le classeur de la base est structuré de la façon suivante:
Nom = Test
Feuille = Feuil1
Colonne à inserer = Designation
valeur à inserer = Untel
Ci-desous le code:
Code:
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
|
Dim Cn As ADODB.Connection
Dim Fichier As String, Feuille As String, strSQL As String
Dim leNom As String,
NomFichierSource = "C:\Documents and Settings\qualite.SMCONTACT\Bureau\PR09-001\Test.xls"
LeNom = "Untel"
Feuille = "feuil1"
Set Cn = New ADODB.Connection
With Cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomFichierSource & "; ReadOnly=False;"
.Open
End With
strSQL = "INSERT INTO [" & Feuille & "$].designation VALUES ( '" & LeNom & "' ) "
Cn.Execute strSQL
Cn.Close
Set Cn = Nothing |
Excel me renvoi le code suivant: Le moteur de base de données Microsoft Jet n'a pas pu trouvé l'objet 'designation'. Assurez-vous que l'objet existe et que vous avez correctement saisi son nom et son chemin d'accès.
Pour info j'ai activé dans les références Microsoft ADO Ext x.x for DDL ans security
Si quelqu'un peut revoir mon code?
