pb pour écrire dans une base de données

[borisdu59]

Lu ter tous.

J'ai un petit problème avec mon code.
Voila le contexte. J'ai créé une fiche questionnaire à remplir sous excel. Je voudrai indexe la réponse au champ du questionnaire dans ne base de données.

J'ai choper une feuille excel avec une macro permettant de rentrée uneinformation dans une bas de donnée access.

J'ai repris le bout de code en essayant de l'adapter, mais ça marche pas est je ne vois pas trop ou.

Je fait donc appel à vos compétences en excel et en VB pour m'aider.

Je tient à préciser que j'ai un niveau en programmation qui frise dangereusement le zéro absolu.

Merci les répondants


Voici mon bout de code pour rentrer les infos dans la base de données.

Sub enregistrement_saisis_fiche_idée()
'
'
        
' entrée des données dans la BdD
'
    Sheets("fiche_idée").Activate

    'cocher Microsoft DAO 3.6 dans Outils/Références
    Dim bd As Database
    Dim dt As Recordset
    Set bd = OpenDatabase(ActiveWorkbook.Path & "\BdD_fiche.mdb")
    Set rs = bd.OpenRecordset("BdD_fiche_idée")
    rs.AddNew
    rs!Titre = Range("F5,H5")
    rs!Mots_clé = Range("E7,H7")
    rs!Produit_associé = Range("H3")
    rs!Auteur = Range("AO3")
    rs!Décision = Range("AN3")
    rs!Description = Range("D14,R35")
    rs!Principe = Range("D40,H53")
    rs!Technique = Range("L40,R53")
    rs!Avantage = Range("D58,H69")
    rs!Obstacle = Range("L58,R69")
    rs!Application = Range("X14,AG33")
    rs!Service_concerné = Range("AP3")
    rs!Personne_concernée = Range("X47,AG53")
    rs!Date = Range("Q5,Z5")
    rs.Update
    rs.Close
    bd.Close

  

    
' fermeture feuilles et sauvegarde
'
    Sheets("Démarage").Visible = True
    Sheets("Démarage").Activate
    Sheets("fiche_idée").Visible = False
    Sheets("BdD_tmp_idée").Visible = False
    
'    ActiveWorkbook.Save
        

' Pop up démarage
'
    Démarage.Show
    
End Sub

Et jai un message d'erreur: Erreur de compilation: Type défini par l'utilisateur non défini
Et ce message pointe vers "Dim bd As Database" (au début du code)