XL 2010 Connection avec autre feuille excel et insertion

Seb

XLDnaute Occasionnel
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

XLDnaute Impliqué
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)
VB:
    NomFeuille = "Feuil2" & "$"
    strSQL = "INSERT INTO [" & NomFeuille & "] (col1, col2,col3,col4) VALUES ('" & LaDate & "', " & "'" & leNom & "', " & "'" & lePrenom & "', '" & PrixUnit & "')"
 
Dernière édition:

dysorthographie

XLDnaute Accro
Bonjour,
Les variables passe plats sont inutiles, en revanche tu pourrais appeler ton contrôle LaDate et pas TextBox2
Code:
    NomFeuille = "Feuil2" & "$"
    strSQL = "INSERT INTO [" & NomFeuille & "] (col1, col2,col3,col4) VALUES (" & TrouveTypeSql(TextBox2) & ", " etc.
 
Dernière édition:

Seb

XLDnaute Occasionnel
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 !
 

Discussions similaires

Statistiques des forums

Discussions
312 935
Messages
2 093 738
Membres
105 805
dernier inscrit
belgacem.nahali