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?