Bonjour,

pouvez-vous me guider pour écrire des données en VB depuis Excel dans une bae Access
ex: création d'un tableau Excel avec des valeurs de cellules à renseigner, puis enregistrer ses valeurs dans une base de données Access

merci d'une réponse.
Emmanuel

Salut, je connais un truc pour importer une feuille excel dans access. Teste-le pour voir si ça te va.

' Ce code est en VB6 avec Office 97 'Ne pas oublier de cocher la référence dans Projet ' Microsoft Access x.x Object Library ' ' Private Sub Command1_Click() Dim obj_Access As Access.Application Dim Nom_Base_Access As String Dim Nom_Fichier_Excel As String Nom_Fichier_Excel = "c:\temp\classeur1.xls" Nom_Base_Access = "c:\temp\bd1.mdb" ' Création d'un objet Access Set obj_Access = New Access.Application ' Ouverture de la base Access obj_Access.OpenCurrentDatabase Nom_Base_Access ' Si mot de passe 'SendKeys MotDePasse & "~" ' destruction de la table de réception On Error Resume Next obj_Access.DoCmd.DeleteObject acTable, "table5" On Error GoTo 0 ' Importation d'une feuille excel dans access ' le 8 c'est pour une base Access 97, essaie 9 pour Access 2000 ou 10 pour Access 2002 ' Table1 c'est le nom de la table que tu veux créer ' toto$ c'est le nom de la feuille que tu veux importer avec un "$" à la fin obj_Access.DoCmd.TransferSpreadsheet acImport, 8, "Table1", Nom_Fichier_Excel, False, "toto$" ' Fermeture de la base obj_Access.Quit ' Libération de la mémoire Set obj_Access = Nothing End Sub

Bonne prog

Cordialement, CanisLupus

Un tit oubli,

Dans obj_Access.DoCmd.DeleteObject acTable, "table5", le table5 c'est Table1 pour le reste de l'exemple. G testé et pas tout traduit. Scuses

Cordialement, CanisLupus