merciiiiiiiiiiiiii, c'est cool :-)
-------------------------------
Réponse au message :
-------------------------------
>
> sql = "INSERT INTO [Table test] (prenom, nom, ville, pays, majeur) VALUES ('" & iprenom & "','" & inom & "','" & iville & "','" & ipays &"','" & imajeur & "');"
>
>
BasicInstinct
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > bonjour à tous, j'ai trouvé un code source sur le site et je l'ai adapté à mes besoins, le voici
> >
> > Sub StartExcel7()
> >
> > Dim XL As Excel.Application
> > Dim xlbook As Excel.Workbook
> > Set xlbook = GetObject(filename_typeinfo, "Excel.Sheet")
> > Dim TestImport As Recordset
> > Set TestImport = CurrentDb().OpenRecordset("Table test")
> > Dim i As Integer
> > Dim iprenom As String
> > Dim inom As String
> > Dim iville As String
> > Dim ipays As String
> > Dim imajeur As String
> > Dim sql As String
> >
> >
> >
> >
> >
> > i = 2
> >
> > Do While xlbook.ActiveSheet.Cells(i, 1) <> ""
> >
> > 'Recuperation des données lignes par lignes
> >
> > iprenom = xlbook.ActiveSheet.Cells(i, 1)
> > inom = xlbook.ActiveSheet.Cells(i, 2)
> > iville = xlbook.ActiveSheet.Cells(i, 3)
> > ipays = xlbook.ActiveSheet.Cells(i, 4)
> > imajeur = xlbook.ActiveSheet.Cells(i, 5)
> >
> >
> > 'Insertion des données dans la table
> >
> > sql = "INSERT INTO 'Table test' (prenom, nom, ville, pays, majeur) VALUES ('iprenom', 'inom', 'iville', 'ipays', 'imajeur');"
> >
> > CurrentDb.Execute sql
> >
> >
> > i = i + 1
> >
> > Loop
> >
> > Set xlbook = Nothing
> > XL.Quit
> >
> > End Sub
> >
> > La compilation s'arrête à CurrentDd.Execute sql et me dit que y'a une erreur de syntaxe dans la requête, que la clause est incomplète (erreur d'execution 3450)
> >
> > Je ne comprends pas, merci de votre aide.....
>