Bonjour, j'aimerais importé un fichier excel grâce a un bouton en sql, j'ai écrit le code mais cela ne fonctionne pas, voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim cSQL As String
 
    cSQL = "INSERT INTO [IMPORT_ExcelToAccess] ([Carton], [Marque], [Modèle], [EMEI], [Reçu le], [Opérateur], [SIM], [PUK], [User], [Num. ligne], [Site], [Prénom], [Nom], [User ID], [Mail],"
    cSQL = cSQL & " [Mot de Passe Mail], [Mot de Passe Application], [PIN Terminal], [PIN SIM], [Coque], [Vitre], [Support Vehicule], [Date Formation], [Requête SQL])"
    cSQL = cSQL & " SELECT [Carton], [Marque], [Modèle], [Num_EMEI], [Reçu_le], [Opérateur], [SIM], [PUK], [User], [Num_ligne], [Site], [Prénom], [Nom], [User ID], [Mail], [Mot de Passe Mail], "
    cSQL = cSQL & " [Mot de Passe Application], [PIN Terminal], [PIN SIM], [Coque], [Vitre], [Support Vehicule], [Date Formation], [Requête SQL]"
    cSQL = cSQL & " FROM [Existant$] in 'C:\Users\goncak\Documents\Projet\Phase_de_Test\Gestion-Flotte-Mobile-rev2.xlsx' 'excel 8.0;HDR=Yes;IMEX=1;' ;"
CurrentDb.Execute cSQL
pouvez me dire se qui cloche
merci par avance