Discussion :

[steph77]

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 :

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
 
    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?

[jfontaine]

Bonjour,

Ce ne serait pas plutot quelque chose comme ca (je me base sur la construction d'un insert standard)

Code :

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

strSQL = "INSERT INTO [" & Feuille & "] (designation) VALUES ( '" & LeNom & "' ) "

[steph77]

J'ai testé, si j'écrit

Code :

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

[" & Feuille & "]

sans le $ il m'indique la même erreur.

Si j'écrit :

Code :

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

strSQL = "INSERT INTO [" & Feuille & "$] (designation) VALUES ( '" & leNom & "' ) "

C'est bon ça marche.
Merci de ton aide.