Bonjour j'ai un souci avec mon code celui ci ne fait pas ce que je veux c'est a dire tout simplement il ne veut pas ajouter dans une table la cellule Excel que j'ai importé.
Si quelqu'un voit l'erreur et le dis pourquoi je le remercie d'avance
Sub Commande0_Click()
'Déclaration des variables
Dim l As Long
Dim Chiffre As String
Dim SQL As String
'Recherche a l'intérieur du fichier chiffre d'affaire de la cellule a importer
Chiffre = "D:\Test\Essai.xls"
l = Ligne()
DoCmd.DeleteObject acTable, "Temp"
DoCmd.TransferSpreadsheet acImport, , "Temp", "D:\Eric\dossier_projets\TDB\Chiffres-Affaires\a-Activité paiement porteurs CA an2007.xls", 0, "K" & l & ":K" & l
DoCmd.OpenQuery "Req_CA"
SQL = "INSERT INTO CA ( année, [Paiement france] ) SELECT [2007] AS Année, Temp.F1FROM Temp;"
MsgBox SQL