Bonjour à toutes et à tous,

J'ai déjà opérer plusieurs connexions d'Access à Excel pour récupérer des valeurs dans mon tableau Excel avec succès. "Méthode ADOBD connexion et recordset"
Mais depuis quelques jours je n'arrive pas à faire de connexion d'Excel vers Access, dans le but de récupérer une certaine valeur contenue dans une certaine cellule et l'intégrer à une certaine cellule de ma table Access.

Je vous résume mon problème :
- Je voudrais récupérer la valeur d'une cellule de ma table Excel "en l'occurrence une moyenne"
- La mettre dans une certaine cellule de ma table Access

Au final je voudrais savoir :
- Si je dois utiliser une nouvelle connexion que celle existante "Access -> Excel avec ADOBD"
- Si je dois utiliser une connexion avec la méthode DoCmd
- Si je suis sur la bonne voie avec ce code dans lequel l'erreur suivante survient "erreur d'execution '424'/ Objet requis"
Pour la ligne : "DoCmd.SetWarnings False"

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
 
Private Sub "nom_sub"()
 
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("chemin_de_mon_fichier_excel")
Set oWSht = oWkb.Worksheets("nom_de_ma_feuille_excel")
 
DoCmd.SetWarnings False
 
'si la cellule n'est pas vide
If oWSht.Range("aa" & i).Value <> "" Then
 
    cSQL = "UPDATE "ma_table" SET "ma colonne" = '" & oWSht.Cells("aa", i) & "' WHERE "ma_condition""
 
    'exécution
    DoCmd.RunSQL cSQL
 
End If
 
 
DoCmd.SetWarnings True
 
End Sub
Voilà pour ma part si j'ai omis de renseigner des éléments n'hésitez pas, demandez moi.
Merci d'avance.