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