Bonjour à tous,

Je vous écrit car je ne parviens pas, malgré mes multiple tentative, a utiliser convenablement les recordset ADODB permettant de mettre à jour une table access via les données contenu dans mon fichier excel. Je parviens bien à me connecter à la base access (aucun message d'erreur) mais lors de l'ouverture du recordset j'obtient un message d'erreur "Erreur de syntaxe dans la clause From"

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Nouvel_utilisateur_clic()

    Dim chemin As String
    
    chemin = "T:\Informatique\Projets\Gestion du Parc\GesParc.accdb"
   
    Set cnx = New ADODB.Connection
       
    ' Connexion à la base
    'ConnectDB cnx, chemin
    
    'Définition du recordset

    Dim rec As ADODB.Recordset
    'Définition du pilote de connexion
    cnx.Provider = "Microsoft.ACE.OLEDB.12.0"
    'Définition de la chaîne de connexion
    cnx.ConnectionString = chemin
    'Ouverture de la base de données
    cnx.Open

    Set rec = New ADODB.Recordset
    rec.ActiveConnection = cnx

    'Ouverture de la table
    rec.Open "Select * from User;", cnx ', adOpenKeyset, adLockOptimistic --> Le message d'erreur apparait a ce niveau (Pourtant c'est une simple requete SQL de selection, donc pourquoi ai je l'erreur ??)

    rec.AddNew
        'Insertion des champs
        rec.Fields("Nom") = Excel.Cells(2, 3).Value
        rec.Fields("Prenom") = Excel.Cells(2, 4).Value
        rec.Fields("Tel") = Excel.Cells(2, 11).Value
        rec.Fields("Mail") = Left(Excel.Cells(2, 4).Value, 1) & "." & Excel.Cells(2, 3).Value & "@portalp.fr"
        rec.Fields("Agence") = Excel.Cells(2, 6).Value
        rec.Fields("Test Valide") = True
        
    'Mise à jour de la table access avec les nouvelles informations
    rec.Update
    
'Fermeture du recordset
rec.Close
Set rec = Nothing

End Sub
Merci d'avance pour votre aide