darkspoilt
Messages postés254Date d'inscriptionjeudi 13 janvier 2005StatutMembreDernière intervention10 octobre 2013
-
30 mai 2007 à 09:34
cavo789
Messages postés168Date d'inscriptionvendredi 9 janvier 2004StatutMembreDernière intervention28 juillet 2009
-
30 mai 2007 à 13:14
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