XL 2010 Connection avec autre feuille excel et insertion

[Seb]

Bonjour a tous,

Je n'arrive pas à insérer des données sur un autre classeur fermé que j'utilise comme base de donnée. Voila mon code

Dim Cn As ADODB.Connection
Dim Fichier As String, NomFeuille As String, Texte_SQL As String

'Définit le classeur fermé servant de base de données
Fichier = Sheets("Parametres").Range("A2")

'CONNECTION
Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With

NomFeuille = "Informations personnelles"

LaDate = TextBox2.Value
leNom = TextBox1.Value
lePrenom = TextBox1.Value
PrixUnit = TextBox1.Value

strSQL = "INSERT INTO [" & NomFeuille & "$] " & "VALUES ('" & LaDate & "', " & "'" & leNom & "', " & "'" & lePrenom & "', '" & PrixUnit & "')"

Cn.Execute strSQL (buggue)

Je pense que certain vont explosé de rire, mais j'ai plus l'habitude de travailler avec une base Access (Que je n'ai plus au boulot). La avec une autre feuille Excel je suis complément dans le flou.

Si quelqu'un pouvais me donner un petit coup de pouce sur la façon d'ecrire le code

Je vous remercie

seb

 

[Oneida]

Bonjour,
Quelle erreur?

J'ai deja fait ce genre de requete et il fallait des noms de champ (titre colonnes premiere ligne de la feuille Excel comme pour un tableau structure)

    NomFeuille = "Feuil2" & "$"
    strSQL = "INSERT INTO [" & NomFeuille & "] (col1, col2,col3,col4) VALUES ('" & LaDate & "', " & "'" & leNom & "', " & "'" & lePrenom & "', '" & PrixUnit & "')"

 

[dysorthographie]

Bonjour,
Les variables passe plats sont inutiles, en revanche tu pourrais appeler ton contrôle LaDate et pas TextBox2

Autres - projet fonction de reconnaissance format date

bonjour a tous dans une autre discussion concernant Ado je me suis rendu compte que la restitution de la requete était un peu légère j'ai donc le projet de créer une fonction de reconnaissance de date en string puisque que ado renvoie du string j'ai donc créé une sub qui fonctionne (que...

excel-downloads.com

    NomFeuille = "Feuil2" & "$"
    strSQL = "INSERT INTO [" & NomFeuille & "] (col1, col2,col3,col4) VALUES (" & TrouveTypeSql(TextBox2) & ", " etc.

 

[job75]

Bonjour à tous,

Pas compris pourquoi la même TextBox est utilisée pour leNom lePrenom et PrxUnit.

A+

 

[Seb]

Bonjour à tous,

Merci pour vos réponses! mais ça buggue encore... je ne sais pas ou est mon erreur. Job75: effectivement pour l'exemple j'ai pas fait attention. Je remets le code que j'ai tapé avec toujours un buggue.

Dim Cn As ADODB.Connection
Dim Fichier As String, NomFeuille As String, Texte_SQL As String

'Définit le classeur fermé servant de base de données
Fichier = Sheets("Parametres").Range("A2")

'CONNECTION
Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With

NomFeuille = "Informations personnelles"

Nom = Me.Nom.Value
Prenom = Me.Prenom.Value
IdGroup = Me.IdGroup.Value
Matricule = Me.Mat.Value
DteNaissance = Me.Naissance.Value

NomFeuille = NomFeuille & "$"
strSQL = "INSERT INTO [" & NomFeuille & "] (Nom,Prenom,MATRICULE PAIE,Date Entrée) VALUES ('" & Prenom & "', " & "'" & IdGroup & "', " & "'" & Matricule & "', '" & DteNaissance & "')"

Cn.Execute strSQL (Bug)

J'ai beau fouiller je trouve pas bcp d'infos. Merci encore !

 

[dysorthographie]

Bonjour,
Je t'invite à toujours encadrer tes[Champs]

([Nom],[Prenom],[MATRICULE PAIE],[Date Entrée])

Je t'invite à regarder le lien que je t'ai envoyé sur TrouveTypeSql