Discussion :

[thefutureisnow]

Bonjour,

Je dois enregistrer un ensemble de ligne une par une dans un fichier xls. J'ai donc utilisé le code suivant dispo sur le net (merci à son auteur) :

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
Sub InsertRecord(ByVal nom As String, ByVal prenom As String, ByVal age As Integer)
    Dim Cnx As ADODB.Connection
    Dim fichier As String, Feuille As String, strSQL As String
 
    fichier = "d:\arboserveur\recapitulatif_erreurs.xls" 'chemin complet du fichier fermé
    Feuille = "Feuil1" 'Onglet où les données doivent être insérées
 
 
    Set Cnx = New ADODB.Connection
 
    With Cnx
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & fichier & "; ReadOnly=False;"
        .Open
    End With
 
    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] " & "VALUES ( '" & nom & "', '" & prenom & "', " & age & ")"
 
 
    Cnx.Execute strSQL
 
    Cnx.Close
    Set Cnx = Nothing
End Sub

J'ai bien un fichier excel, dont voici une capture d'écran :
Colonne 1 en text
Colonne 2 en text
Colonne 3 en numérique



Lors ce que je tente d'enregistrer en appelant la fonction d'execution de la requête j'ai le message suivant :

"ODBC EXCEL : le nombre de valeurs de la requête doit coïncider avec le nombre de champs destination"

Je pense que mon erreur est toute bête, mais après beaucoup de recherches, j'arrive pas à trouver :/

Merci d'avance !

[Michel_M]

Bonjour,
Lorsque tu utilises "insert to", le travail est facilité en nommant ta cible; dans ton exemple, nommes A1:C1 par ex:db_ecrire

Ci joint des exemples basiques de liaisons avec ADO, celui qui te concerne est ecrire_db_fermé dans home_ado.xls
il te reste à adapter aux conditions de ton appli (macro param^trée, noms ...)

[thefutureisnow]

Merci de ta réponse, mais dans ta source on fais un select, on ajoute dans une cellule précise et on fais une MAJ. Je souhaiterais ajouter une ligne de 3 cellule, l'une à la suite des autres, il y a possibilité de faire ca via un insert into directement ?

EDIT, j'ai trouvé une autre solution chez microsoft, assez simple à mettre en oeuvre, il faut cependant créer un nom de table (MyTable) dans le fichier xls avec les champs qu'il faut (ici FirstName, LastName).

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Create a new connection object for Book1.xls
   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:\Book1.xls;Extended Properties=Excel 8.0;"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Bill', 'Brown')"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Joe', 'Thomas')"
   conn.Close

[Michel_M]

Si tu avais daigné lire mon message entièrement, je te conseillais de nommer ta cible !!!!
et tu t'es trompé de macro pourtant indiquée dans mon message

Désespérant...

[thefutureisnow]

Je l'avais lus plusieurs fois, c'est juste que j'ai fais pas mal de recherches sur le nommage justement, ca ne semblait pas du tout évident pour moi dans un premier temps, c'est sur le tuto de microsoft que j'ai percuté. Je tiens à te remercier, tu m'as mis sur la piste, et au final avec le nomage de compris, ta solution était bonne c'est clair.

Désolé si je t'ai blessé, c'était pas dans mes intentions bien au contraire.

[Michel_M]

Tu ne m'a pas blessé, mais écoeuré d'être encore une fois solidaire pour rien