E
Emilie
Guest
Bonjour Forum,
je dois recuperer des donnée d'une feuille excel dans un emplacement.
Pour cela j'a réalisé ce programe en VB en cosidérant que la feuille source est ma base de donnée.mais j'arrive pas à faire la connection.
si quelqu'un peut m'aider je lui serai reconnaissant.
merci d'avance
Private Sub CmdParcourirFichierSource_Click()
Dim BaseDonnée As Database
Dim Fiches As Recordset
'Lance la session Base de données Microsoft Jet
Set session = DBEngine.workspaces(0)
Set BaseDonnée = session.openDatabase('C:\\Nouveau Dossier\\BD.xl')
Set Fiches = BaseDonnée.openRecordset('BD', dbopenDynaset)
End Sub
je dois recuperer des donnée d'une feuille excel dans un emplacement.
Pour cela j'a réalisé ce programe en VB en cosidérant que la feuille source est ma base de donnée.mais j'arrive pas à faire la connection.
si quelqu'un peut m'aider je lui serai reconnaissant.
merci d'avance
Private Sub CmdParcourirFichierSource_Click()
Dim BaseDonnée As Database
Dim Fiches As Recordset
'Lance la session Base de données Microsoft Jet
Set session = DBEngine.workspaces(0)
Set BaseDonnée = session.openDatabase('C:\\Nouveau Dossier\\BD.xl')
Set Fiches = BaseDonnée.openRecordset('BD', dbopenDynaset)
End Sub
